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ABSTRACT 

Group  decision  making  utilizing  the  Delphi  method  can  be 
a  time-consuming  and  di-f-ficult  procedure,  especially  when 
the  required  group  membership  is  separated  by  great 
distances.  This  study  designs  and  implements  an  automated 
group  decision  support  system  which  may  be  employed  by  a 
single  computer  or  a  networking  system. 

This  particular  model  is  text— based  as  opposed  to 
mathematical— based ,  a  radical  departure  from  the  GDSS  models 
currently  in  vogue.  This  program,  Touchstone,  successfully 
translates  the  Delphi  method  of  criteria  development  to  the 
computer.   It  is  implemented  in  Turbo  Pascal  for  the  IBM-PC. 
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I.       INTRODUCTION 

A.  DEFINITION  OF  THE  PROBLEM 

In  today's  -fast— paced  world  community,  the  logistics  of 
assembling  a  group  of  experts  for  the  purpose  of  resolving  a 
particular  problem  has  become  a  problem  unto  itself. 
Conflicting  schedules,  prohibitive  distances,  and  the 
increasing  frequency  of  group  decision— making  efforts  are 
constant  barriers  to  effective  attacks  on  common  problems. 
Even  if  such  problems  were  easily  surmountable,  the 
importance  and  complexity  of  today's  problems  would  require 
a  decision  based  on  the  concensus  of  an  expert  group  rather 
than  the  opinion  of  a  single,  stong— minded  individual. 

B.  THE  NEED  FOR  THE  COMPUTERIZED  GDSS 

Managerial  decision  making  has  become  increasingly  more 
dependent  upon  computer— generated  information.  As  a  result, 
management  is  more  cognizant  of  the  capabilities  and 
potentials  of  computer-based  systems.  The  computer-based 
system  has  evolved  from  assisting  individuals  in  making  a 
decision  to  supporting  and  enhancing  a  wide  range  of  group 
and  organizational  decisions.  The  question  is  how  to 
effectively  and  efficiently  design  a  distributed  Decision 
Support  System  (DSS)  to  aid  a  group  in  defining,  evaluating, 
modifying,  and  seeking  consensus  in  deriving  the  criteria 
for  a  common  problem.  Recent  literature  in  computer 
conferencing   systems  suggests  that  a   computer— based   Group 


Decision  Support  System  (GDSS)  could: 

1.  Reduce  tension  due  to  -face-to— face  communications, 

2.  Promote  equal  participation,  and 

3.  Favor  free    and  creative  generation  of  ideas. 

C.   SCOPE  OF  TOUCHSTONE 

CD-OP,  a  program  recently  developed  at  the  Naval  Post- 
graduate School,  Monterey,  California,  was  designed  to 
assist  in  the  prioritization  of  previously-developed 
criteria.  Touchstone,  the  program  written  as  an  adjunct  to 
this  thesis,  is  a  prototype  of  a  text-oriented,  criteria- 
development  system  which  may  be  utilized  independently  or  as 
a  "-front— end"  to  the  CO— OP  program.  Inasmuch  as  it  is  a 
prototype,  there  are  necessary  physical  limitations  to  the 
number  o-f  problems,  criteria,  and  people  the  system  is 
designed  to  handle. 

While  both  Touchstone  and  CO-OP  are  stand-alone  systems , 
Touchstone  o-f-fers  a  solid  baseline  o-f  developed  criteria 
upon  which  CO— OP  builds,  and  from  which  it  processes  a 
decision,  using  mathematical  modeling.  Touchstone  is  a 
self-contained  system,  with  an  on-line,  on-screen  "users 
manual"  that  provides  specific  information  based  upon  the 
user's  position  and  status  in  the  program.  Use  of  Touch- 
stone neither  requires  nor  precludes  the  use  of  CO-OP,  but 
these  two  systems  complement  each  other  in  their  methods  of 
problem  resolution. 
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D.  ORGANIZATION  OF  THE  THESIS 

Inasmuch  as  this  thesis  is  project-oriented,  the  actual 
text  herein  is  minimal,  limited  primarily  to  a  description 
o-f  the  background  -for,  and  the  process  of,  putting  the 
Delphi  system  on  an  electronic  medium.  The  bulk  o-f  the 
information  is  contained  in  the  source  code  -found  in 
Appendix  E.  It  is  the  technique  of  implementing  the  text- 
orientation,  the  help  screens,  the  communicative 
"Chatterbox",  and  the  hierarchical  text— manipulation ,  which 
is  the  essence  of  our  efforts  and  our  thesis.  Touchstone  is 
the  thesis;  this  written  effort  is  merely  a  support  and  a 
description  of  the  true  product  of  our  research. 

E.  FOCUS  OF  THE  THESIS 

This  thesis,  and  its  accompanying  computer  program, 
focus  on  a  particular  aspect  of  group  decision  making.  They 
develop  a  framework  for  guiding  committee  members  to 
individually  generate  criteria  for  a  collective  problem, 
merge  them  together,  and  allow  interactive  negotiation  and 
collective  refinement  of  the  set  of  criteria  representing 
the  problem.  This  concept  is  centered  around  the  premise  of 
the  Delphi  method  of  group  decision-making  and  reflects  the 
attempt  ar  that  method  to  provide  anonymous  and  equal 
partnership  in  problem  resolution.  The  peculiarity  of  the 
Touchstone  system  is  its  unique  utilization  of  organized 
text  processing  without  depending  upon  complex  mathematical 
modeling  to  reach  a  conclusion. 


F.   OBJECTIVE 

Our  objective  is  to  provide  the  proper  mix  o-f  computer 
assistance  and  creative  freedom  -for  the  Touchstone  users  as 
they  attempt  problem  resolution  with  the  Delphi  method.  The 
program  is  developed  to  support  individuals  and  groups 
having  expertise  in  the  management  field  but  not  necessarily 
in  the  computer  -field.  It  is  our  intent  to  create  an 
automated  group  decision— making  tool  that  will  take 
pressure,  both  real  and  imagined,  away  -from  the  individual 
member  serving  on  a  committee,  while  not  compromising  the 
effectiveness  of  the  committee  as  a  whole.  The  system 
should  allow  the  user  to  interact  with  other  members  of  the 
committee,  free  from  the  effects  a-f  those  members  actions, 
prejudices,  and  mannerisms. 
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II.      THE  DELPHI  METHOD  OF  GROUP  DECISION  MAKING 

A.   BACKGROUND 

Research  literature  on  the  subject  of  the  Delphi 
methodology  gives  a  wide  variety  of  definitions  and 
descriptions.  The  concept,  developed  primarily  by  the  Rand 
corporation  beginning  in  the  late  1960 's,  has  some 
fundamental  building  blocks  common  to  most  versions: 

1.  An  individual  who  defines  a  particular  problem. 

2.  A  group  of  experts  gathered  together  to  resolve  a 
particular  problem. 

3.  A  facilitator  who  collects  the  input  from  the 
experts,  collates  it,  and   gives   the  composite 
results  back  to  the  experts  for  further 
consideration. 

4.  Anonymity  in  the  sense  that  the  experts  do  not  know 
the  individual  sources  of  the  collective  information, 
(although  they  may,  in  fact,  know  who  else  is  in  the 
group) . 

The  purpose  of  the  Delphi  methodology  is  the  elimination   of 

external  influences  on  group  concensus  and  decisions. 

The  idea  is  to  improve  the  panel  or  committee 
approach  in  arriving  at  a  forecast  or  estimate  by 
subjecting  the  views  of  the  individual  participants  to 
each  other's  criticism  in  way  that  avoids  face-to-face 
confrontation.  CRef.  13 

It  is  by  this  technique  that  a  free  and  open  discussion  of  a 

problem   may  be  implemented  regardless  of  the  personalities, 

ranks,  or  prestige  of  the  participants.   The  solution  to  the 

problem,    and   little   else,    becomes   the   focus   of   the 

di  scussion. 
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B.   COMPUTERIZATION  OF  THE  DELPHI  METHOD 

Translating  the  Delphi  method  to  the  computer  can  be  a 
relatively  logical  process.  Building  blocks  1  and  2  (see 
II,  A.)  are  essentially  unchanged;  -for  building  blocks  3 
and  4,  the  computer  replaces  the  human  involvement.  Touch- 
stone refers  to  the  individual  de-fining  the  problem,  as  the 
'problem  invocator',  and  to  the  experts  as  the  'committee 
members'.  Through  the  Touchstone  program,  the  computer 
becomes  the  facilitator,  collecting  and  collating  the  expert 
input.  The  anonymity  of  the  experts  is  adequately  main- 
tained by  the  system  to  all  but  the  problem  invocator. 

The  major  advantage  to  automating  the  Delphi  method  is 
time.  The  Delphi  method  is  lengthy  and  cumbersome  when 
executed  on  a  committee  of  any  significant  size.  The 
computer  allows  committee  members  to  be  located  around  the 
world  and  still  to  have  instant  access  to  the  'facilitator' 
at  any  time  of  day  or  night.  In  this  manner,  problems  may 
be  resolved  in  days  instead  of  months,  and  the  need  to 
physically  assemble  a  group  of  experts  to  resolve  a  problem 
is  all  but  eliminated. 


III.    THE  MODEL  COMPONENT 


A.   MODEL  BASE  FOR  GROUP  DECISION  MAKING:   ALTERNATIVES  VS, 

CRITERIA 


Our  framework  for  DSS  includes  modeling  and  model 
usage  as  one  of  three  basic  components,  completely 
integrated  with  data  base  and  dialog  capabilities.  This 
full  integration  is  necessary  to  support  decision— making 
activities  such  as  projection,  deduction,  creation,  and 
comparison  of  alternatives.  These  activities  require 
close  interaction  and  rapid  feedback  between  the  decision 
maker  and  the  computer,  with  strong  and  flexible  control 
mechanisms.   CRef.  2,  p.  2761 


Alternatives  are  defined  as  the  choices  available  for  the 
resolution  of  a  given  problem;  criteria  are  the  guidelines 
to  be  used  in  making  the  final  decision  between  those 
alternatives.  Touchstone  allows  for  the  development  of  both 
of  these  important  aspects  of  any  decision,  by  allowing 
members  to  define,  explain,  discuss,  re-define  and  agree 
upon  a  collective  set  of  alternatives  and  criteria.  Once 
this  initial  decision  has  been  made,  the  remaining  user 
responses  and  actions  are  the  same  for  both.  The  initial 
decision  of  the  committee  member  is  to  make  the  choice 
between  developing  alternatives  or  developing  criteria. 

The  Touchstone  system  uses  the  Model -Dialog  link  as 
described  by  Sprague  and  Carlston  in  that  six  basic  steps 
are    utilized: 

1.  Invocation:   user  calls  and  starts  the  model 

2.  Parameter  request:   program  requests  data  or 
parameters 
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3.  Parameter  collection:   user  supplies  data  or 
parameters 

4.  Interrupt:   not  usually  available  other  than 
unrecoverable  terminate  (break)  or  pause. 

5.  Model  completes  run,  notifies  and  presents  results  in 
a  predefined  format  or  report. 

6.  Return  to  step  1  for  another  cycle  if  desired. 
CRef.  2,  pp.  274-2753 


B.   PROBLEM  INVOCATOR 

The  major  design  factor  for  Touchstone  revolves  around 
the  creation  of  the  problem  and  the  responsibilities/limita- 
tions designated  to  resolve  that  problem.  It  was  determined 
early  in  the  research  for  this  project  that  at  least  one 
person  needed  to  be  responsible  for  identifying  the  problems 
and  far  necessary  housekeeping  chores.  We  established  this 
'position'  by  looking  at  a  normal  face-to-face  committee, 
and  emulating  the  positions  within  the  Touchstone  System, 
making  the  "problem  invocator"  the  committee  chairman.  The 
potential  duties  of  the  problem  invocator  have  extensive 
ramifications  and  far  reaching  consequences.  Initially,  the 
invocator  is  responsible  for  naming  the  problem,  providing  a 
short  but  descriptive  definition,  and  (optionally)  expanding 
upon  that  definition  to  any  length  he  feels  necessary.  He 
is  also  responsible  for  designating  the  committee  members, 
adding  and  deleting  members  to  any  committee  as  indicated, 
and  for  removing  completed  problems  from  the  system.  Figures 
16-19  exhibit  screen  menus  with  options  available  to  the 
invocator.     Final    printouts   of   committee   results   and 


14 


archival   printouts   of  the  Chatterbox  file   are   under   his 
purview  (see  Figure  29). 

One  of  the  most  important  decisions  made  by  the 
invocator  is  that  of  committee  member  anonymity.  The 
date/time/signature  line  in  the  Chatterbox  (Chapter  6, 
paragraph  D)  may  be  modified  to  delete  the  automatic 
inclusion  of  the  committee  members'  initials.  In  this 
manner,  the  interaction  between  members  may  be  truly 
anonymous  and  in  keeping  with  the  spirit  of  the  Delphi 
method  of  group  decision-making.  The  use  of  the  date/time 
signature  stamp  is  two— fold,  not  only  does  it  provide  a 
reference  point  for  committee  members,  it  also  allows  the 
problem  invocator  to  monitor  the  progress  of  the  committee. 

C.   COMMITTEE  MEMBER 

The  duties  of  the  committee  members  aire  relatively 
simple  to  define.  They  Are  required  to  input  their  ideas 
and  await  further  Touchstone  system  instruction  at  each 
level.  Although  the  final  product  of  their  labors  can  be 
quite  complex,  the  step— by— step  methodology  simplifies  their 
efforts. 

One  of  the  major  concerns  of  the  Delphi  method  was  that 
committee  members  be  allowed  to  reach  a  concensus  without 
being  intimidated  by  the  leader /invocator ,  or  other 
committee  members  CRef .  33.  Psychological  research  has 
shown  that  intimidation  may  occur  by  the  tone  of  a  person's 
voice,  or  even  a  casual  glance  from  a  superior  CRef.  4D.  In 
the  case  of  the  Touchstone  system,  the  invocator  defines  the 


problem,  assigns  members,  and  has  total  access  over  the 
system,  but  is  unable  to  influence  the  committee  members  by 
any  o-f  his  system  actions.  Also,  the  committee  members  are 
only  able  to  influence  other  members  by  the  strength  of 
their  ideas,  not  of  their  personality  or  position. 
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LEVEL  0: 


Figure  3.1   Data  Flow  Diagram 
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LEVEL  1 


USER 


PRINTED 
OUTPUT 


SCREEN 

OUTPUT 


Figure  3-2   Data  Flow  Diagram 
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IV.     THE  INTERFACE  COMPONENT 

A.   SCREEN  DESIGN 

The  original  concept  for  the  screen  design  for  Touch- 
Stone  was  to  use  a  3— window  screen  which  would  incorporate 
the  problem  definition,  the  Chatterbox,  and  the  criteria 
manipulation.  It  soon  became  evident  that  this  technique 
would  not  provide  adequate  space  for  any  of  the  above- 
mentioned  functions.  The  use  of  pop— up  windows  became  the 
most  reasonable  alternative.  Commercial  software  was 
researched,  but  it  was  felt  that  RAM  resident  windows  did 
not  provide  adequate  flexibility  for  context-sensitive  help 
screens. 

The  use  of  multiple  and/or  "pop-up"  windows  was 
determined  to  be  the  most  user-friendly  method  of  providing 
communications  and  on— screen  assistance.  It  was  felt  that 
simply  refreshing  the  screen  with  the  new  screen,  and  then 
restoring  it  after  the  help  or  Chatterbox  screen  was 
through,  was  too  distracting  to  the  user.  Employing  windows 
allowed  the  user's  main  focus  to  remain  on  the  problem 
screen,  even  when  using  the  Chatterbox  or  the  help  screens. 

The  present  screen  design  utilizes  a  number  of  separate, 
interactive  screens.  The  main  program  uses  a  single  box 
with  the  Touchstone  logo  at  the  top  a-f  the  box.  Each  of 
the  other  screens  is  individually  labeled,  depending  upon 
its  function.    Smaller  boxes  for  the  help   screen,   problem 
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explanation  and  Chatterbox  are  layered  onto  the  main  screen. 
Any  in-f ormation  overlaid  by  these  boxes  is  restored  when  the 
box  is  removed.  The  boxes  are  care-fully  positioned  far  the 
express  purpose  o-f  minimizing  the  amount  of  current  informa- 
tion hidden  by  the  overlay.   (See  Figures  36-33). 

Screens  are  designed  -for  maximum  user  effectiveness, 
keeping  in  mind,  that  a  "busy"  screen  is  often  confusing. 
Menus  are  used  as  frequently  as  passible,  limiting  the 
number  of  choices  to  a  minimum.  The  basic  background 
colors  are  a  light  blue  for  all  screens,  with  contrasting 
colors  being  utilized  for  special  flags  and  pop— up  windows. 
An  example  of  this  is  the  use  of  a  red  background  for 
certain  error  messages. 

One  of  the  special  features  of  Touchstone's  screen 
design  is  the  Odometer,  which  tracks  and  displays  the  user's 
relative  position  in  the  Touchstone  decision  making  process. 
It  also  indicates  a  Chatterbox  entry  that  the  current  user 
has  not  viewed.  Located  at  the  bottom  of  main  the  screens 
the  Odometer  also  contains  instructions  for  the  use  of  the 
Function  Keys.   (See  Figure  35). 

B.   DIALOGUE  STYLE 

As  previously  mentioned,  the  program  is  developed  to 
support  individuals  and  groups  who  are  novices  in  computers. 
The  use  of  "special  function"  keys  is  kept  to  a  minimum, 
with  clear  definitions  as  to  their  usage  displayed  in  the 
Odometer.    Thus  the  simplicity  of  Touchstone  eliminates  the 
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necessity  for  a  manager  or  CEO  to  use  a  "computer  chauffeur" 
■for  data  input. 

C.   ON-LINE  ASSISTANCE 

Program  assistance  from  Touchstone  is  provided  in  two 
forms,  the  "Introduction"  screen  and  the  "Help"  screens. 
The  "Introduction"  screen  i s  an  option  presented  at  the 
beginning  of  each  Touchstone  session,  and  contains  a 
general ,  4-page  overview  of  the  program. 

The  initial  idea  for  the  Help  Screens  was  to  implement 
an  "automatic"  screen,  one  which  would  appear  when 
appropriate,  without  user  action.  Three  categories  of  user 
expertise  were  defined,  with  corresponding  levels  of  pop— up 
help  windows.  The  user  would  indicate  his  ability  level  at 
the  beginning  of  each  session,  following  which  the  context- 
sensitive  on— line  help  screens  would  appear  as  the 
programmers  felt  necessary.  Subsequent  research  revealed 
that  this  idea  was  neither  feasible  nor  desirable,  from 
either  the  programmers'  or  the  users'  standpoint. 

The  present  design  of  the  "Help"  screens  for  Touchstone 
follows  the  basic  premise  used  by  some  of  today's  more 
popular  software.  A  single  function  key  (F-l)  accesses  one 
of  the  many  pre-written  help  screens.  Each  screen  is  coded 
for  access  depending  upon  the  user's  location  within  the 
program.  In  this  manner,  the  help  screens  remain  current 
with  the  user  and  do  not  require  a  complex  set  of  keystrokes 
on  the  user's  part  for  access.  The  "help"  text  is 
frequently   larger   than   the  size  of   the   screens,   and   a 
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scrolling   capability  is  implemented  to  compensate  -for   this 
discrepancy. 


V.       THE  DATA  COMPONENT 

A.   DATA  STRUCTURE/MANAGEMENT 

The  primary  purpose  of  Touchstone,  that  of  criteria/ 
alternative  development,  forces  it  to  rely  almost  completely 
on  the  manipulation  o-f  text  rather  than  data.  The  data 
component  o-f  Touchstone  -functions  as  a  vehicle  for  flags  and 
arrays.  Each  individual  user  of  Touchstone  is  given  a 
separate  file  for  each  problem  to  which  he  is  assigned. 
That  file  contains  the  user  name,  the  problem  name,  the 
current  status  of  the  user  within  that  problem,  and  the 
criteria/alternatives  that  have  been  developed.  When  this 
file  is  created,  an  entry  is  made  in  the  "master"  file. 
Conversely,  when  a  problem  is  concluded  and  the  user  files 
deleted,  the  master  file  is  updated  accordingly.  These  are 
the  files  dealing  with  text /data  manipulation.  Files 
utilized  by  the  help  screens,  Chatterbox,  and  problem 
explanation  screens  are  all  text  files.  The  help  screen 
files  have  been  created  by  the  programmers;  the  problem 
explanation  files  is  (optionally)  created  by  the  problem 
invocator  at  the  time  a  new  problem  is  defined;  the 
Chatterbox  files  are  created  and  updated  each  time  the 
Chatterbox  is  used.  The  problem  invocator  has  the  option  to 
print   out   the  Chatterbox  files  at  any  time  he  so   desires. 

Data   Management   concerns  itself   with   the   recording, 
editing,   and   manipulation   of  text  input  for  criteria   and 
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alternatives.  Data  management  -for  Touchstone  is  based  upon 
the  complex  alliance  of  two  fundamental  cornerstones:  Flags 
and  Arrays.  The  -flags  provide  a  "location  map"  for  all 
members  on  a  committee,  allowing  the  program  (and  the 
problem  invocator)  to  accurately  monitor  the  progress  and 
status  of  each  problem  resolution.  Arrays  provide  the 
structure  necessary  to  contain  and  control  the  free-flow 
text  input  vital  to  creative  thought.  The  algorithm  used 
for  the  marriage  of  these  two  building-blocks  gives  a  large 
degree  of  freedom  to  the  user  while  maintaining  the 
structured  environment  required  by  the  computer. 

The  manipulation  of  data  is  handled  mainly  by  the 
extensive  use  of  arrays.  Data  is  initially  input  directly 
into  a  file-  On  the  next  user-access  this  data  is  brought 
up  in  the  form  of  an  array.  This  technique  allows  the 
sorting  of  individual  files  and,  when  required,  the 
collating  of  mul ti pie— user  files.  It  also  permits  the  user 
to  'edit'  the  text  while  reviewing  his  individual  files. 
When  mul ti pie— user  files  ars  collated,  duplicate  records 
are  eliminated,  and  the  array  replaces  the  original  file 
with  a  new,  composite  file  of  criteria. 

Manipulating  text  data  from  a  variety  of  individuals 
calls  for  the  use  of  an  intricate  series  of  flags.  Ea<zh 
committee  member's  file  has  a  flag— set  based  on  the  position 
of  that  file  within  the  program.  At  certain  points, 
continuation  in  the  program  is  dependent  upon  the  flag  set 
of   all   other   members   in   the   committee.     In   addition. 
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overseeing  the  progress  of  each  problem  resolution  is  an 
important  task  of  the  problem  invocator.  For  these  reasons, 
a  separate  master  file  was  conceived,  containing  each 
problem  name,  each  member  of  the  committee  dealing  with  each 
problem,  and  the  current  status  of  each  member  within  a 
given  problem. 

The  unique  procedure  "GetTheKeys"  provides  a  variety  of 
options  for  the  system.  Each  keystroke  is  processed 
individually  allowing  the  length  of  the  input  to  be  varied 
by  the  calling  procedure.  In  that  manner  the  user  is 
prevented  from  entering  data  whose  length  is  in  excess  of 
the  size  of  the  data  field.  The  possibility  of  inputting  a 
string  of  60  characters,  when  the  data  field  was  only  10 
characters  long,  is  thereby  eliminated.  The  reading  of  each 
keystroke  also  allows  the  function  keys  to  be  accessed  at 
any  time  during  the  program,  and  during  the  review  and 
editing  of  the  text  portion  of  the  program,  the  special 
functions  of  the  numeric  keypad  (i.e.  arrows  and  paging 
keys)  are    activated. 

An  important  feature  of  the  data  management  of  Touch- 
Stone  is  that  it  works  in  background  mode,  manipulating 
data,  opening  and  loading  files,  and  functioning  as  a  system 
controller.  It  is  an  typical  example  of  the  "Black  Box"  in 
action.  The  user  inputs  data  and  receives  results  while  the 
intricate  process  of  weaving  the  input  into  a  proper  output 
goes  largely  unnoticed. 
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VI.     THE  COMMUNICATION  COMPONENT 

A.  OVERVIEW 

A  main  focus  of  Touchstone  is  communication — 
communication  among  users,  communication  between  the  user 
and  the  problem  invocator,  and  user  communication  with  the 
program  itself.  Without  this  intricate  network  of 
communication,  the  entire  fabric  of  Touchstone  would  be 
lost. 

B.  TEXT  EDITING 

Inasmuch  as  Touchstone  is  highly  involved  in  text 
manipulation,  a  variety  of  techniques  in  performing  this 
manipulation  was  necessary  to  achieve  our  overall  purpose. 
Once  again,  it  was  our  goal  to  provide  as  much  freedom  as 
possible  for  the  user  while  maintaining  the  necessary  degree 
of  system  integrity.  The  concept  of  using  a  form  of 
wordprocessing  to  input  data  is  expected  to  be  the  most 
"user-friendly"  method  of  inputting  and  manipulating  data. 
Each  keystroke  is  read  and  manipulated  by  our  program.  This 
practice  allows  the  function  keys  and  special  keys  to  be 
programmer-defined  and  available  throughout  the  system. 
Also,  the  on-line  help-screens  are  automatically  provided, 
progressing  throughout  the  program. 

Word-processing  indicates  the  capability  to  block  copy, 
move  text,  read  to  and  from  files,  as  well  as  text 
manipulation.    Touchstone's  version  of  "word— processing"  is 
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really  a  text  editor,  allowing  for  text  input,  erasure, 
scrolling,  paging,  and  home/end— of —fi 1 e  movement.  Three 
speci-fic  versions  o-f  text-editing  are  utilized  in  Touch- 
Stone,  each  necessitated  by  the  very  different  conditions 
under  which  it  is  used. 

The  expanded  problem  explanation  used  by  the  problem 
invocator  is  a  straight  text  editor  employed  when  a  problem 
is  first  described.  Once  invoked,  a  detailed  explanation  is 
written  to  file  for  later  recall  by  the  committee  members. 
Full  text  manipulation  is  possible  only  by  the  invocator; 
committee  members  are  limited  to  a  read-only  status.  In 
this  manner,  only  the  problem  invocator  has  the  ability  to 
define  the  problem,  ensuring  that  each  committee  member  is 
using  the  same  baseline  information. 

Although  previous  Chatterbox  entries  are  available  for 
review,  text  editing  in  the  Chatterbox  is  available  only  at 
the  specified  point  at  the  end  of  the  file.  Action  in  the 
review  mode  is  limited  to  scrolling  and  paging.  Once  an 
entry  has  been  saved,  it  is  not  available  for  editing.  By 
limiting  editing  access  to  the  entry  being  made,  a 
"permanent"  record  of  Chatterbox  entries  may  be  made. 

Text-editing  in  the  main  section  of  the  program  is 
limited  to  single— line  input.  The  length  of  each  line  is 
location  sensitive  and  specifically  defined.  This  method 
allows  for  a  wide  range  of  functions,  including  the  constant 
access  to  help  and  Chatterbox  screens,  as  well  as  the 
ability   to  input  string  and  numerical   variables   employing 
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the  same  procedural  call.  Elimination  of  all  "READ"  and 
"READLN"  calls  was  the  unique  contribution  of  this  procedure 
and  the  basis  lor  an  increased  elegance  in  programming. 

C.  HELP  SCREENS 

Help  screens  are  important  for  the  system  to  be 
in-formative.  Help  screens  are  discussed  in  Chapter  IV, 
paragraph  C. 

D.  PROBLEM  EXPLANATION  SCREEN 

The  problem  invocator  communicates  with  the  committee 
members  via  the  "problem  explanation"  box,  accessed  with  the 
F— 2  key.  During  the  initial  creation  of  the  problem,  the 
invocator  is  prompted  to  give  a  detailed  explanation  o-f  the 
new  problem.  If  he  elects  to  do  so,  a  file  of  up  to  100 
text  lines  is  made  available  to  him.  The  committee  member 
then  has  a  custom— made  information  file  for  each  problem  on 
which  he  is  working.  Text  manipulation  is  "read"  and 
"write"  for  the  problem  invocator  (at  the  time  of  problem 
creation  only)  and  "read— only"  for  the  committee  member. 
Since  the  problem  explanation  may  be  considerably  larger 
than  the  problem  explanation  screen,  scrolling  and  page 
up/down  features  aire    available  to  the  user. 

E.  THE  CHATTERBOX 

The  primary  purpose  of  the  Chatterbox  is  to  promote  the 
informal  exchange  of  information  among  committee  members. 
It  has  remained  unchanged  in  its  basic  concept  throughout 
the   design   and  coding.   However,   of   the   many   technical 
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enhancements  considered,  those  implemented  were  based 
primarily  upon  user  acceptance. 

Chatterbox  differs  from  a  conventional  notepad  in  a 
number  of  ways.  As  mentioned  before,  in  order  to  prevent 
"malicious"  erasure  of  text,  previous  entries  of  text  cannot 
be  changed.  Also,  each  individual  problem  has  its  own 
unique,  automatically  accessed,  Chatterbox.  Anytime  the 
user  leaves  the  Chatterbox,  the  file  is  saved  unless  no 
entry  has  been  made.  Any  entry  made  in  the  Chatterbox  is 
date/time/signature  stamped  providing  an  automatic  record  of 
the  user.  The  problem  invocator  has  the  option  of 
eliminating  the  signature  from  the  viewed  stamp  for  any 
given  problem. 

Location  of  the  Chatterbox  was  the  source  of  much 
discussion.  The  Chatterbox  is  located  at  the  right-hand 
side  of  the  screen,  in  order  to  leave  important  information 
residing  in  the  main  screen  visible  to  the  user.  Ideally, 
it  would  be  nice  to  provide  a  movable  window;  however,  in 
this  version,  the  location  of  the  Chatterbox  is  fixed. 

Designed  to  be  used  on  a  single  computer  or  in  a 
network,  Chatterbox  has  a  few  unique  features. 

1)  Only  one  person  may  write  to  Chatterbox  at  a  given 
time,  but  more  than  more  person  may  use  it  on  a 
read— only  basis. 

2)  The  last  80  text  lines  of  a  given  Chatterbox  file 
are  read  into  the  Chatterbox  airraiy,  with  capability 
to  add  up  to  40  lines  of  new  text.  However,  a  flag 
attached  to  the  line  counter  prevents  writing  to 
any  eireA  except  the  last  forty  lines.  In  that 
manner,  only  new  information  may  be  edited. 

3)  One  of  the  special  features  of  the  Chatterbox  is  to 
locate   the   user,   upon   re-entry,   in   the   place 


(time/date) ,  where  he  last  logged  out  of  the 
Chatterbox.  This  -feature  allows  him  to  check  the 
messages  that  were  entered  after  the  last  logout. 
Consequently,  all  new  entries  are  immediately 
available  for  his  review. 

4>  The  line  counter,  in  the  upper  right  hand  corner  of 
the  Chatterbox,  allows  far  quick  location  reference 
when  browsing. 

5)  Standardizing  the  line  number  between  the  read- 
write  and  read-only  sections  of  Chatterbox  made 
this  delineation  easier  to  implement.  The 
appropriate  placement  of  the  text  retrieval  from 
the  files  was  the  primary  key  to  controlling  this 
procedure. 

There  were  two  specific  issues  which  were  considered, 
but  rejected  as  part  of  the  final  design:  1)  The 
imposition  of  time  limits  for  a  person  using  the  Chatterbox 
was  discussed  but  not  implemented.  It  was  felt  that  the  use 
of  a  forty  line  limit  on  each  entry  was  to  be  a  sufficient 
constraint.  2)  We  also  ruled  out  the  possibility  of 
importing  data  files  into  the  Chatterbox.  Such  a  situation 
would  reduce  the  reading  capability  of  the  user,  and  fill 
the  Chatterbox  with  excess  information. 

The  Chatterbox  i s  an  integral  part  of  the  Touchstone 
system,  being  as  important  as  the  internal  algorithms  that 
aid  the  users  in  making  a  decision.  Communication,  as 
always,  is  vital  to  any  decision— making  process,  and  the 
Chatterbox  enhances  this  aspect  of  the  system. 
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VII.     IMPLEMENTATION  OF  TOUCHSTONE 

A.   HARDWARE/SOFTWARE 

Touchstone  was  developed  on  a  Microsoft-based  DOS 
computer  with  640K  RAM  and  a  color  card.  Touchstone  can  be 
processed  on  a  dual  disk  floppy  drive  system  or  a  single 
•floppy  disk,  with  a  hard  disk  system.  Each  floppy  disk 
drive  should  be  360K  RAM. 

The  Microsoft  Disk  Operating  System  utilised  was  version 
3.1.  The  Touchstone  System  was  written  in  Turbo  Pascal 
version  3.01.  No  other  software  packages  were  employed  in 
the  final  version  of  Touchstone.  The  system  is  comprised  of 
four   separate   programs   in   the   form   of   command   files: 

1)  AT0UCH.COM 

2)  BT0UCH.COM 

3)  CTQUCH.COM 

4)  FLAGSET.COM. 

These  files  are  incorporated  in  a  batch  file  called  TS.bat. 
Each  command  file  is  basically  a  driver  program,  with 
numerous  include  files.  These  include  files  sire  listed  in 
Appendix  E.  Documentation  is  done  internally  at  the  begin- 
ning of  each  procedure.  Internal  documentation  lists  the 
f ol lowing: 

Procedure  name. 
Program  supported. 
Local  variables  used. 
Global  variables  used. 
Arrays  used. 
Files  accessed. 
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External  Calls. 

External  -filters  (include  files)  used. 
Where  the  procedure  is  called  -from. 
Purpose  of  the  procedure. 

The   effort  expended  (manhours)  was  as   fallows:    system 

analysis  and  design,   1(30;   research  and  thesis  preparation, 

150;  coding,  testing,  and  debugging:   700. 
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VIII.   CONCLUSIONS 

Touchstone,  originally  conceived  as  a  criteria 
development  tool  -for  another  DSS  program  ("CO-OP"), 
subsequently  evolved  into  a  stand  alone  program.  As  a  non- 
mathematical,  text-oriented  BDSS,  this  program  has  entered  a 
new  area  of  computer  support  for  making  decisions.  Although 
not  thoroughly  tested  in  a  networking  environment,  the 
potential  -for  such  a  use  was  an  integral  part  of  the  design 
consideration  and  was  incorporated  in  the  final  product. 

Touchstone  works.  It  provides  a  vehicle  for  criteria 
development  in  a  group  environment  using  the  Delphi  method, 
creating  a  novel  technique  of  computer  assistance.  The 
objective  of  providing  a  proper  mix  of  computer  assistance 
and  creative  freedom  in  the  explanation  and  analysis  phase 
of  the  problem  solving  process,  has  been  achieved. 
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APPENDIX  A 
DATA  DICTIONARY 


A,  S,  I,  J,  W,  X,  y,  Z:  Various  integer  counters  used 
throughout  the  system. 

L,  M  and  N:  Integers  that  are  summed  and  value  passed  to 
variable  checkpoint. 

ACTIVEPROBLEMFILE:   file  of  PROBREC. 

ALT:    Single  character    used  in  identifying  the  file  as  an 
Alternative  or  Criteria,  to  be  printed. 

ALTERNATIVE:  A  single  character,  'A'  or  'C  -for  Alterna- 
tives or  Criteria,  used  for  assignment  or  comparisons. 

ANONYMOUS:  Boolean  expression  used  in  the  chatterbox. 
When  created,  the  problem  invccator  has  the  option  to  make 
ccmmuni cations  anonymous  from  other  committee  members. 

AUTHORIZED:  Boolean  expression,  i-f  true,  allows  the  system 
to  execute,  if  false,  terminates  the  system. 

CH,    CHA:   Single  characters  used  for  YES/NO  type  questions. 

CHANGEFLAG:  Boolean  variable  responsible  for  setting  flags 
appropriately  depending  on  whether  the  user  is  in  "Alterna- 
tives" or  "Criteria". 

CHANGEREC:  A  single  character  used  to  confirm  whether  the 
problem  is  an  Alternative  or  Criteria. 

CHATRFILE:  12  character  string  denoting  the  chatterbox  file 
to  be  used. 

CHATOK:  Boolean  expression  that  controls  the  use  of  the 
chatterbox  utility. 

CHECKCHANGE:  A  single  character  used  to  confirm  whether  the 
problem  is  an  Alternative  or  Criteria. 

CHECKPOINT:  Integer  denoting  the  sum  of  the  first  three 
flags  in  this  record.  These  records  are  sorted  on  this 
field  to  keep  them  in  order  according  to  the  level  of  the 
data,  i.e.,  Ill  would  equate  a  piece  of  data  under  the 
first  major  criteria,  under  the  first  sub-criteria. 
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CHECKSTATE:  Is  a  single  character  used  to  track  the  user's 
position  in  the  system. 

CHKFLAG1,  CHKFLAG2,  and  CHKFLAG3:  Integers  used  to  nuuiDsr 
the  cifferent  levels  of  al  ternati  ves/cri  reri  a. 

CHOICE:  A  single  character,  'A'  or  'C'  for  Alternatives  or 
Criteria,  used  ror  assignment  or  comcar x sons. 

CHT:  Single  character  utilized  for  error  trapping 
procedures. 

CLEARIT:  Integers  used  for  tracking  the  arrays,  advanced 
once  for  each  record. 

CDDEARRAY:  String  of  12  characters  used  to  encode  an  decode 
passwords. 

CODENAME:  String  variable  used  for  encoding  and  decoding 
user  passwords. 

COUNT,  COUNTED,  COUNTER:  Integers  used  for  tracking  the 
arrays,  advanced  once  for  each  record. 

CRITARRAY:   An  array  of  the  records  in  the  format  of  CRIREC. 

CRITDEF:  String  of  58  characters  defining  the  above 
variable  CRITNAME. 

CRITERIA:   Used  in  conjunction  with  the  record  CRIREC. 

CRITLIMIT:  Integer  denoting  the  maximum  number  of  alterna- 
tives/criteria allowed. 

CRITNAME:  String  of  10  characters  denoting  criteria/alter- 
natives name- 

DATE:  A  string  of  12  characters  passed  to  a  file  as  the 
day,  month  and  year  for  tracking  the  last  time  a  file  was 
accessed. 

DATELINE:  String  of  12  characters  which  gives  the  last  date 
that  the  file  was  accassec. 

DEFINITION:  String  of  53  characters  which  gives  the  snort 
version  of  the  problem  definition. 

DGUBLECOUNTED:  An  integer  counter  used  during  the  merging 
of  files  process. 

FILECHECK:  Boolean  expression  used  when  checking  tne 
validity  of  a  filename. 
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FILEDRIVE:    Single   character   denoting  the  drive  the   data 

files  reside  on, 

FLASCHQICE:  A  string  of  1  character  used  to  set  users 
probl emf I ag. 

FLAGCOUNT:  Integers  used  for  tracking  the  arrays,  advanced 
once  for  each  rsaard. 

FLAGEND:  Integer  that  counts  ail  files  with  the  same 
problem  name  and  the  same  flag  setting. 

FLAGGED:  Single  ch^raicter  used  to  check  committee  member 
status  prior  to  merging  files. 

FLAGi:   Integer  denoting  level  1,  major  criteria. 

FLAG2:   Integer  denoting  level  2,  sub-criteria. 

FLAG3:   Integer  denoting  level  3,  tertiary  criteria. 

HELPDRIVE:  Single  character  denoting  the  drive  the  help 
files  reside  on. 

HELPERs  Single  character  that  indicates  the  active  help 
screen. 

HELPSIZE:  Integer  parameter  passed  to  determine  the  size  of 
the  helpscreen. 

TNPUTS7RING:  Used  with  the  variable  STRINGARRAY,  as  a 
passed  parameter  to  the  procedure  SetTheKevs. 

INVOCATDR:  A  single  character  either  a  'W/  or  * M'  usea  to 
determine  whether  the  user  is  a  problem  invocator  (M) ,  or  a 
commi  ttee  member  (C) . 

KEEPTQGETHER:  An  integer  counter  used  during  the  sorting 
routine  to  keep  the  records  in  the  various  levels  in  the 
order  in  which  they  were  entered. 

KRITERIAFILE:         file  of  CRIREC. 

LIMIDs  An  integer  parameter  passed  to  a  procedure  denoting 
the  number  of  records  in  an  array. 

LIMMIT:  Integer  set  to  the  maximum  number  of  records  in  an 
array . 

LINEMARK:  Boolean  expression  used  tD  advance  line  countsr 
when  displaying  data  on  the  screen. 

MARKER:  Integer  used  in  conjunction  with  the  qotcXY  call 
when  positioning  data  on  the  screen. 


MEMBER:  String  of  three  characters  which  indicates  that 
there  is  a  -file  in  the  DOS  directory  with  the  extension 
using  this  members  name. 

MEMBERS:   Used  in  conjunction  with  the  record  PROBREC. 

MOVEOVER:  Integer  used  in  conjunction  with  the  gotoXY  call 
-for  positioning  data  on  the  screen. 

MOVEX:  Integer  used  with  the  gotoXY  statement  positioning 
data  on  the  screen. 

NAMES:   Variable  used  with  the  record  CRIREC  and  array 
CRITARRAY. 

NAMESTRING:  A  string  o-f  three  characters  that  is  used  as 
the  extension  when  recalling  the  user's  -file. 

NEWCRITLIMIT:  Integer  denoting  the  maximum  number  of  alter- 
natives/criteria allowed. 

NEWLIMIT:  An  integer  limiting  the  number  o-f  entries  that 
can  be  made  for  alternatives/criteria. 

NEWNAME:   3  character  string  used  when  verifying  -filenames. 

NEWPRGB:   Single  characters  used  for  YES/NO  type  questions. 

NEWSTRING:  12  character  string  denoting  the  file  to  be 
used. 

NUM:  Integers  used  for  numbering  the  criteria/alternatives 
when  displayed  on  the  screen. 

NUMMEMS:  Integer  that  tracks  the  number  of  members  on  a 
particular  committee.  Minimum  value  of  2  and  maximum  value 
of  15. 

ONCECGUNTED:  A  boolean  expression  used  in  the  merging 
process. 

PRINTONE:  Boolean  expression  used  when  printing  alterna- 
te ves/cri  ter i  a. 

PROBARRAY:   An  array  of  the  records  in  the  format  of  PROBREC. 

PROBLEM:  String  of  seven  characters  which  indicates  that 
there  is  a  file  in  the  DOS  directory  beginning  with  this 
string. 

PROBLEMFLAG:  Single  character  used  to  track  the  status  of 
the  user  who  is  logged  on  to  Touchstone. 


PROBNAME:  A  string  of  seven  characters  that  is  used  as  the 
■first  seven  letters  when  recalling  a  user  -file. 

PROBS:   Variable  used  with  the  record  PRQBREC  and  Array 
PROBARRAY. 

PT1,  PT2,  PT3  and  PT4:  Integers  used  as  points  when  de-fi- 
ning the  various  windows  used  in  the  svsnem. 

QUITFLAG:  Integer  used  in  moving  -from  level  to  level  in  the 
alternatives/criteria  data  entry. 

QUITFLG1,  DUITFLG2,  QUITFLG3:  Integers  tracking  the  number 
o-f  alternatives/criteria  at  the  various  levels. 

RECOUNT:  Integer  used  in  positioning  the  pointer  when  wri- 
ting to  a  users  problem  -file. 

GCROLLIT:  Boolean  expression  that  controls  the  use  o-f  the 
arrets  keys,  so  that  they  may  only  be  used  during  certain 
portions  of  the  program. 

SECNUM:  Integers  used  for  numbering  the  criteria/alterna- 
tives when  displayed  on  the  screen. 

SELECTED:  Integers  used  -for  tracking  the  arrays,  advanced 
once  for  each  record. 

SHOWME:  Integer  used  in  moving  from  level  to  level  in  the 
alternatives/criteria  data  entry. 

STARTMERGE:  A  boolean  expression,  that,  when  true  allows 
ail  files  with  the  same  problem  name  to  be  merged  into  one. 

STARTUP:  Boolean  expression  used  in  several  procedures  to 
check  the  validity  of  the  file  requested  or  to  check  for 
dupl ication. 

STATFLAG:  Character  that  tracks  where  the  user  is  in  the 
system. 

STRINGARRAY:  An  array  of  1  to  59  characters,  used  in 
conjunction  with  the  procedure  SetTheKeys. 

STDPGAP:  Boolean  expression  used  to  stop  alternatives/ 
criteria  input  beyond  a  predetermined  limit. 

STDPPROG:  Boolean  expression,  if  true  terminates  a  proce- 
dure or  the  entire  program,  depending  on  when  it  is  toggled. 

TEMPFILE:   A  temporary  file  using  text  vice  records. 

TEMPMAME:  String  variable  used  for  encoding  and  decoding 
user  passwords. 
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THRNUMs     Integers  usad  -for  numbering  the   criteria/alterna- 
tives when  displayed  en  the  screen. 

TRACK!:   Integer  denoting  number  o-f  records  in  an  arrav. 

LiSERCQDE:   3  character  code  used  to  verify  password. 

WEEDDEF:    Boolean   expression   used  to  activate  the  F3   key 
wnen  the  program  goes  past  the  problem  selection  stage. 
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APPENDIX  3 
FILE  STRUCTURE 


PRCBREC:  Is  the  master  record  that:  holds  the  tallowing 
in-f ormatian  on  ail  of  the  problems  in  the  system.  The 
following  variables  comprise  this  record: 

CHECKCHANGE:  A  single  character  used  to  confirm  whether  the 
problem  is  an  Alternative  or  Criteria. 

CHECKSTATE:  Is  a  single  character  used  to  track  the  user's 
position  in  the  system. 

CHOICE:  A  single  character,  'A'  or  'C'"  for  Alternatives  or 
Criteria,  used  tcr    assignment  or  comparisons. 

DATELINE-  String  of  12  characters  which  gives  the  last  date 
that  the  file  was  accessed. 

DEFINITION:  String  of  38  characters  which  gives  the  short 
version  of  the  problem  definition. 

MEMBER:  String  of  three  characters  which  indicates  that 
there  is  a  file  in  the  DOS  directory  with  the  extension 
using  this  members  name. 

NUMMEMS:  Integer  that  tracks  the  number  of  members  on  a 
particular   committee.   Minimum  value  of  2  and  maximum  value 


PROBLEM:  String  of  seven  characters  which  indicates  that 
there  is  a  file  in  the  DOS  directory  beginning  with  this 
string. 


Q3I.51iO:    Is   a  record    that  is  contained  in  a  file  in   DOS. 

There   is   one   file   for  each   committee   member  for   each 

specific  problem.  The  record  contains  the  following 
i  nf ormati  on: 

CHECKPOINT:  Integer  denoting  the  sum  of  the  first  three 
flags  in  this  ^ecord.  These  records  a.r>=  sorted  on  this 
field  to  keep  them  in  order  according  to  the  level  of  the 
data,  i.e.  ,  111  would  equate  a  piece  of  data  under  the 
•first  major  criteria,  under  the  first  sub— criteria. 
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CRITDEF:     String   of   58   characters   de-fining   the   above 
variable  CRITNAME- 

CRITIMAME:    String  o-f  iiZ5  characters  denoting  criteria/alter- 
natives name. 

FLAG1:   Integer  denoting  level  i,  major  criteria. 

FLAG2:   Integer  denoting  ievei  2,  sub— cri ter i a. 

FLAG3:   Integer  denoting  level  3,  tertiary  criteria. 

STATFLAG:    Character   that  tracks  where  the  user  is  in   the 
system. 
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APPENDIX  C 
SCREEN  FORMATS 


FIGURE  1 
TITLE  SCREEN 


:  DUUHfcj  '  JNifc. 

ft    Criteria    Developrnertt    Pronrarn 
for    Sroup    Decision    Support    Systems 

iihcnaei     £.     Lesley 
Robert    T.     Wooldridge 

Naval     Post  gr-acJu  axe    School 
Mortt  erey  *     Ca  a  1  forn i  a 
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FIGURE  2 
THESIS  ADVISOR  SCREEN 
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Naval  -ostaraDuate  School 

■•  orix.  ersv  ,     Ca^i  :orma 
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FIGURE  3 
DATE  SCREEN 


TOUCHSTONE 


THE  CORRECT  DATE  IS  VERY  IMPORTANT  TO  THE 
PROPER  FUNCTIONING  OF  TOUCHSTONE! 

Jan  £6,   1S87 

Is    tms    date    correct ?       Y 


FIGURE    4 
INTRODUCTION    OPTION    SCREEN 


TOUCHSTONE 


WOULD  YOU  LIKE  AN  INTRODUCTION  TO  TOUCHSTONE?    <Y/N)    * 
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FIGURE  5 
INSTRUCTION  SCREEN  #1 


TOUCHSTONE       

*  INTRODUCTION  &  INFORMATION  * 

The 

TOUCHSTONE  program  is  designed  to  assist 

you  in 

developing  functional  and  meaningful  group  cr  it  en 

a  for 

a  Group 

Decision  Support  System.   Utilizing  trie  TOUCHSTONE 

program, 

you  will  be  able  to  condense  a  large  list 

Of 

spontaneously— considered  criteria  into  a  compact. 

wel  1  — 

aef 1 ned. 

ujRuuP— SEuEC  i  cD  set  of  criteria. 
<PR£53  ANY  KEY  TO  CONTINUE) 

FIGURE  6 
INSTRUCTION  SCREEN  #2 


I  UuCriSTONt 


*  INTRODUCTION  *,•  INFORMATION  ( cont  i  nued )  * 

These  criteria  will  oe  uniouelv  aesianed  xo  assist  you  in 
resolving  your  current  prop  1 em,  whatever  it  mipnt  be. 
Instructions,  specific  to  eacn  portion  of  the  program,  may 
be  called  at  any  time  bv  pressing  the  <F— 1>   <"HELP")  kev. 
Communication  betweeri  "committee  members"  is  accomplished 
via  tne  "Cnatt erPox " .  an  eleccromc  notepad  which  is 
(PRESS  hny  KEY  TO  CONTINUE) 


FIGURE  7 
INSTLiCTION  SCREEN  #3 


*  INT 

TOUCHSTONE 
RGDUCTION  &  INFORMATION 

(continued)  * 

cal led 

bv  tne 

<F-2>  kev. 

An  extended  explanation 

of  tne 

problem  on  wh 

ich  you  are 

working  may 

be  seen 

by  pressing 

the  <F- 

-3>  kev 

Specific 

i  n format  i  on 

for  the 

use  of 

these 

rnay  be 

■found 

on— screen  at 

the  bottom 

of  each 

f lash- 

up  box. 

TOUCHSTONE 

proceeds  through  three 

levels  of  crit 

eri  a 

development . 

At  the  ena 

of  each  level,  the 

i  no  i  v  i  d 

ual 

< PRESS  ANY 

KEY  TO  CONTINUE) 

FIGURE  8 
INSTRUCTION  SCREEN  #4 


'GiJCHSTONE 


*  INiRODUCTION  &     INFORMATION  (continued)  *• 

criteria  Are    combined  for  nrouo  decision  and  edit  inn.    Once 
there  is  agreement  on  this  level  of  criteria.  TOUCHSTONE 
moves  on  to  the  next  level  and  trie  next  until  the  THIRD 
level  has  been  completed.   Finally,  there  is  an  opportunity 
to  edit  the  completed  list.    This  list  is  then  ready  for  use 
with  a  DSS  to  evaluate  the  specifics  for  each  criterion. 
< PRESS  ANY  KEY  TO  CONTINUE) 
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FIGURE  9 
FILE  INITIALIZATION  SCREEN 


TOUCHSTONE 


*    FILE     INITIALIZATION     * 

Fi^st,      before    you    start,      I     need    some    vital     infonnation: 
On    which    drive    aire    the    HELP    files    located: 
DRIVE:        A  (Default:        Drive    A> 

On    which    drive    are    the    committee    files     located: 

DRIVE:        &  (Default:        Drive    b> 

Is    tr«e    aoove     informal  ion    accurate?  V 


FIGURE     10 
INITIALIZATION    SCREEN    FOR    FIRST    PROBLEM     INVOCATOR 


TOUCHSTONE 


The  files  on  drive  &  have  not  yet  beer,  initialized. 
For  these  files,  you  will  need  a  master  password. 
Please  input  one  now:      (Maximum  of  6  letters) 


*■*-*■****-«• 
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FIGURE  11 
INTRODUCTION  SCREEN  (1)  FOR  FIRST  PROBLEM  INVOCATOR 


TOUCHSTONE 


GREETINGS,  NEW  PRGBlEM  INVOCATOR! 

As  tne  person  imt  iatino  tnis  copy  of  TOUCHSTONE, 
you  are  designated  as  the: 

"Proolern  Invocator". 
As  such,  you  are  -the  orie  to  define  the  problems, 
select  the  committee  membership,  and  perform  the 
various  other  maintenance  functions.   You  may,  of 
course,  designate  other  problem  invocators  if  you 
so  desire,  or  maintain  control  by  yourself.   The 
choice  is  yours. 

For  log— on  purposes,   I  will  need  to  know  your 
initials  <a  maximum  of  3>  :     *** 


FIGURE  12 
INTRODUCTION  SCREEN  (2)  FOR  FIRST  PROBLEM  INVOCATOR 


TOUCHSTONE 


Thank  you  for  your  initials.    You  will  need  to  use 
these  to  identify  yourself  to  trie  computer  each  time 
you  log  on.    When  you  do  loq  on  to  TOUCHSTONE,  you 
will  need  to  use  the  Proplern  Invocator  Password  if 
you  wish  to  identify  yourself  as  the  proolern  invocator. 
For  this  version  of  TOUCHSTONE,  that  password  is: 
-**•*    WINDMILL    *** 

(You  should  memorize  this  password  for  future  use.    If 
you  wish,  you  have  the  option  to  chanae  it  in  the 
Proolern  Invocator  Menu.  )    If  you  prefer  to  log  on  as 
a  committee  member  instead,  you  will  need  a  personal 
password  of  your  own.    This  word  (letters  only)  can  be 
up  to  S  letters  in  length:    ******** 
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FIGURE  13 
INPUT  COMMITTEE  MEMBER/PROBLEM  INVOCATOR  INFORMATION 


TOUCHSTONE 


**   COMMITTEE  MEMBER  INFORMATION  *■*■ 

Now  as  a  good  time  to  input  the  initials  of    those 
people  you  know  will  need  to  have  access  to 
TOUCHSTONE.   Please  input  their  initials  and,  for 
each,  designate  whether  that  individual  is  to  be  a 
CP3roblern  invocator  or  merely  a  CCHornmittee  rnernoer. 
<The  default  choice  is  Committee  member.  > 

Initials:   **•*  Access  level  <P/C):  LCI 


< Write  "ZZZ"  to  exit) 


FIGURE  14 
ACCESS  APPROVAL  SCREEN 


TOUCHSTONE 


ACCESS  APPROVED  -  WELCOME  TO  TOUCHSTONE 
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FIGURE  15 
ALTERNATIVE/CRITERIA  CHOICE  SCREEN 


TOUCHSTOMt 


Are    you    developing    Alternatives    or    Criteria?       A/C 


FIGURE    16 
MAIN    INVQCATOR    MENU    SCREEN 


TOUCHSTONt       

INVOCATOR  MENU 

- 

1. 

Probletn  File  Manipulation 

2- 

Personnel  File  Manipulation 

%$M 

Print/Chat  File  Manipulation 

A. 

Chanqe,  Alternatives  to  Criteria 

Sett  ing 

5. 

Exit  to  DOS. 

SELECTION: 

;a 


FIGURE  17 
PROBLEM  FILE  MANIPULATION  SCREEN 


TOUCHSTONE 
INVOCATOR  MENU 

1. 

Beqiri  New  Problem. 

£. 

Delete  a  Problem. 

3. 

Check  Status  on  a  Specific 

Problem. 

4. 

Exit  to  Main  Menu 

SELECTION: 

FIGURE  IS 
PERSONNEL  FILE  MANIPULATION  SCREEN 


TOUCHSTONE 


INVOCATOR  MENU 


1.  Chanae  Prooiem  Invocator  Passworo. 

2.  Add/Delete  a  Problem  Invocator. 

3.  Add  a  Committee  Member  To  An  Existing  Committee. 

4.  Delete  a  Member  From  An  Existing  Committee. 

5.  Exit  to  Main  Menu 


SELECTION: 


FIGURE  19 
PR I NT /CHAT  FILE  MANIPULATION  SCREEN 


TUUChS'i  ONE       — — 1 

INVOCATOR  MENU 

1. 

Print  Out  Chatterbox  for  Alternatives. 

£. 

Print  Out  Chatterbox  for*  Criteria. 

3. 

Close  a  Chatterbox  File  Which  Has  Been 

Left  Open  Accidental ly. 

4. 

Print  Out  Developed  Alternatives. 

5. 

Print  Out  Developed  Criteria- 

6. 

Exit  to  Main  Menu 

SELECTION: 

FIGURE  20 

PROBLEM  CREATION  SCREEN 

(with  PROBLEM  EXPLANATION  INSERT) 


1 TuUCHsTONE       1 

Please  enter  the  name  of  tne  new  oroDiem. 

The  name  must  not  exceed  seven  letters:            BOAT 

Please  nave  a  one  line  definition  of  the  problem: 

I  WOULD  LIKE  TO  BUY  A  BOAT 

Do  you  wish  to  elaborate  on  that  definition?                Y 

r.rsr-.r,i    ir~t      rrvr-.i    mmT7n«i 

This  is  a  cnsince    to  buv  a  boat,  but  1  need  to 

know  how  biq,  how  powerful  a  boat  to  buy  and 

within  what  once  range  1  should  consider  a  boat. 

USE:   UP&DN  ARROW  KEYS',  HOME,  END,  PG  UP,  PG  DN,  F—  lO  (quit  > 

FIGURE  21 
PROBLEM  CREATION  SCREEN 
(after  PROBLEM  EXPLANATION  INSERT) 


TOUCHSTONE 


Please  enter  the  name  of  the  new  problem. 
The  name  must  not  exceed  seven  letters:  BOAT 

Please  give  a  one  line  definition  of  the  problem: 
I  WOULD  LIKE  TO  BUY  A  BOAT 

Do  you  wish  to  elaborate  on  that  definition?  Y 

How  many  members  comprise  this  committee?  £ 

Members  names:  MEN 

BOB 
Will  communications  and  criteria  be  anonymous?  N 


FIGURE  22 
PROBLEM  CREATION  SCREEN 


TOUCHSTONE 


PkGBLEM 
BOAT 


CAUTION;  !  !   Enterinp  a  proolern  name  from  this  list,  will 
delete  ALL  files  witn  that  name.    To  auit  without  deleting 
a  prod lem,  press  FIG. 

Enter  the  proolern  you  wisn  to  delete: 


J^ 


FIGURE    23 
PROBLEM    STATUS    CHECK    SCREEN     (1) 


TOUCHSTONE 


PROBLEM 
BOAT 


Entering    a    Problem    name    from    this     list     will     tell     you 
When    a    memoes    last     accessed    a    Problem 

Enter    tne    name    of    the    Prooiern: 


FIGURE    24 
PROBLEM    STATUS    CHECK    SCREEN     (2) 


TOUCHSTONE 


PROBLEM     MEMBER     DATE 

BOAT         MEN        Emoty  File 
BOAT         BOB        ErnDty  File 


Press  RtTUftN  to  continue. 


FIGURE  25 
CHANGE  PROBLEM  INVCCATOR  PASSWORD  SCREEN 


TOUCHSTONE 

INVOCATOR  MASTER  CODEWORD  CHANGE 

This  section  of  the 

program  wi 1 1 

all  ow 

you  to 

change 

the 

Pr 

oblern  Invocator  Password. 

Don1 

t 

forget 

that 

you 

wi 

1 1  need  to  i r«f 

orm  all  other  probl 

em  invocators 

of 

trie 

new  Password 

if    vou  want 

them 

tc 

have 

access 

to 

Touchstone. 

For 

th 

is  version  of 

TOUCHSTONE, 

that 

password 

is : 

*■*•* 

WINDMILL 

■*•*■-*■ 

Please 

input  tne  new 

Problem  Invocator 

Dassword  below: 

*•*■*■*■-*•*•**• 

v  Max  lrnurn 

of  8  letters) 

FIGURE  26 
ADD/DELETE  PROBLEM  INVOCATOR/COMMITTEE  MEMBER  SCREEN 


TOUCHSTONE 


INVOCATOR  MASTtK  STATUS  UhAnGE 

Tnis  section  of  trie  program  will  allow  you  to  add, 
delete,  or  change  the  status  of  any  person  you  wish. 

Please  enter  the  initials  of  the  individual  you  want 
to  adc/delete/chanqe  <OR>  Dress  enter  to  return. 

INITIALS:   ABD 


"ABD"  NOW  HAS  ACCESS  TO  TOUCHSTONE.    DO  YOU  WANT  "ABD"  TO 
BE  A  PROBLEM  INVOCATOR  OR  COMMITTEE  MEMBER?    <P/C)    # 


FIGURE  27 
SCREEN  TO  ADD  A  COMMITTEE  MEMBER 


TOUCHSTONE 


PROBLEM 
BOAT 


Please  enter  the  name  of    tne  problem  to  wnich  you 

wish    to    add    a    rnernt<ei~. 

The  name  must  De  lasted  aDove:   BOAT 


FIGURE  28 
SCREEN  TO  DELETE  A  COMMITTEE  MEMBER 
FROM  AN  EXISTING  COMMITTEE 


TGuCHSTONt 


PROBLEM 
BOAT 


To  emit  without  oeietinq  a  Member,  Press  FIO. 
Enter  tne  memoer1 s  PROBLEM: 


FIGURE  29 
PRINTOUT  SCREEN 


TOUCHSTONE 


PROBLEM 
BOAT 


Entering  a  Problem  Name  from  this  list  will  print  that 
■file  for  you 

To  Quit  without  printing  a  file.  Press  FIG. 

Enter    trie    name    of    the     Problem: 


FIGURE  30 

CLOSE  CHATTERBOX  FILE 

(IF  LEFT  OPEN  ACCIDENTALLY) 


TOUCHSTONE 


Problem  File  Name:   BOAT*** 


CHATTERBOX  FILE  CLOSED 


FIGURE    31 
SCREEN    SHOWING    CHANGE    OF    ALTERNATIVES    TO    CRITERIA 


TOUCHSTONE 


INVOCATOR    MENU 


1.  Problem    File    Manipulation 

£.  Personnel    File    Manipulation 

3.  Print /Chat    File    Manipulation 

4.  Change,     ftltemat  lves    to    Criteria    Sett  inn 
5-  Exit    to    DOS. 


SELECTION:        4 
Is    this    se 1 ect i on    correct ? 
You    are    now    oevelopinq    Criteria 


FIGURE    32 
COMMITTEE    MEMBER    SIGN-ON    SCREEN 


TOUCHSTONE 


**   SIGN-ON  INFORMATION   ** 
What  are  your  initials?   BOB 
What  is  your  user  (or  invocator)  password?   ******** 
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FIGURE  33 
COMMITTEE  MEMBER  MENU  SCREEN 


| TOUCHSTONt 

COMMITTEE  MEMBER  MENU 

At  the  present  time,  you  are  a  rnernoer  on 

committees 

discussing  the  followinq  proolems: 

BOAT 

SELECTION  CHOICES:   1)   Cnoose  a  problem 

£>   Exit 

-co  DOS 

SELECTION:   * 

FIGURE  34 
COMMITTEE  MEMBER  PROBLEM  INTRODUCTION  SCREEN 


TOUCHSTONE 


A  short,  one  line  definiton  of  BOAT  follows. 

I  WOULD  LIKE  TO  BUY  A  BOAT 

If  at  any  time  you  wish  to  see  a  more  in 
deotti  explanation  of  the  proolern,  press  F3 


Press  Return  to  continue 


FIGURE    35 
SAMPLE    COMMITTEE    MEMBER    WORK    SCREEN 


TOUCHSTONE 


Do    vou    Wi sn    to    Chanpe 


portiofi    of    trie    Hlterriativ! 


1. 

LENGTH 

2. 

WEIGHT 

3. 

DISPLACEMT 

A. 

COLOR 

5. 

MASTS 

Press    Home    Key    to    activate    Scrolling.         Mress    Enter 
Key     before    ariswerinq    trie    Question    after    Scrolling. 


THE    LENGTH    FROM  THE    SOU    TO    THE    STERN,      INCLUSIVE 

TOTAL    WEIGHT    ON  DRY    LAND,     WITH    BOAT    EMPTY 

WEIGHT    OF    WATER  DISPLACED    BY    EMPTY,     FLOATING    BOAT 

COLOR    OF    HULL 

NUMBER  OF  MASTS  < i , 2,  OR  3) 


Alternative  DeveloomenT 
Inout    Final    Holding    Review  Alternatives 
Fl=Helo   FE=CHATTERBGX   F3-Proolern  Explanation   F10=Quit  CHATTERBOX  AVAILABLE 

FIGURE  36 

SAMPLE  COMMITTEE  MEMBER  WORK  SCREEN 

(with  PROBLEM  EXPLANATION  INSERT) 

TOUCHSTONE       


Do  you  Wish  to  Change    a  portion  of  tne  Alternatives? 

Press  Home  Key  to  activate  Scrolling.    Press  Enter 
Key  before  answer mq  trie  question  after  Scrolling. 


1. 
2. 
3. 
A. 


LENGTH 

WEIGHT 

DISPLACEMT 

COLOR 

MASTS 


THE  LENGTH  FROM  THE  BOW  TO  THE  STERN,   INCLUSIVE 
TOTAL  WEIGHT  ON  DRV  LAND,  WITH  BOAT  EMPTY 
WEIGHT  OF  WATER  DISPLACED  BY  EMPTY,  FLOATING  BOAT 
COLOR  OF  HULL 
PROBLEM  EXPLANATION  


This  is  a  chance  to  buy  a  boat,  but  I  need  to 
know  how  big,  how  powerful  a  boat  to  buy  and 
within  what  price  range  1  snould  consider  a  boat. 


1 — USE:    ARROW  KEYS.  HOME,  END,  PG  UP,  PG  DN,  TAB,  D£i_,  RETURN- 


rtlternative  Develooment 
Inout     Final     Ho Id i no     Review  Alternatives 
Fl=Helo   F2=CHATTERBOX   FZ-Pr-oPlern  Explanation   FlO=Quit  CHATTERBOX  AVAILABLE 
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FIGURE  37 
SAMPLE  COMMITTEE  MEMBER  WORK  SCREEN 
(with  CHATTERBOX  INSERT) 


TOUCHSTONE 


Do  you  Wish  -co  Change  a  portion  of  tne  Alternative; 

Press  Home  Key  to  activate  Scrolling.    Press  Enter 
Key  before  answer-inn  the  Question  after-  Scrolling. 


LENGTH 

WEIGHT 

DISPLACEMT 

COLOR 

MASTS 


THE  LENGTH  FROM  THE  BOW  TO  THE  STERN,   INCLUSIVE 

TOTAL  WEIGHT  ON  DRY  LAND,  WITH  BOAT  EMPTY 

WEIGHT  OF  WATER  DISPLACED  BY  EMPTY,  FLOATING  BOAT 

COLOR  OF  HULL 

NUMBER  OF  MASTS  < 1 , £,  OR  3) 

CHATTERBOX      CF-1  for  help,  F-IO  to  Quit  3  

WORD PROCESSING  SECTION  LINE  #:  Bi 


This  is  the  first  entry  of  the  chatterbox  for  the 
Boat  proolern.    This  is  just  the  beginning. 

*  MESSAGE  ENDED:  01/E6/1SS7  &     16:£4-  -*-*■**  BOB  **■* 


-USE:    ARROW  KEYS,  HQMt,  END,  PG  UP,  PG  DN.  TAB,  DEL,  RETURN— 1 
Al  ternat  ive  Deveioornent 
Input    Fine^i  Holding    Review  Alternatives 

Fl=Help   F£=CHATTERBOX   F3=Proolern  Explanation   F10=Quit  CHATTERBOX  AVAILABLE 

FIGURE  38 
SAMPLE  COMMITTEE  MEMBER  WORK  SCREEN 
(with  CHATTERBOX  HELP  SCREEN  INSERT) 


TOUCnSTONE 


1. 

LE 

£. 

WE 

3. 

DI 

A. 

CO 

5. 

MA 

Do  you  Wish  to  Change  a  portion  of  the  Alternatives? 


CHATTERBOX  HELP  SCREEN 


WELCOME  TO  THE  WONDERFUL  WORLD  OF  THE  CHATERBOX ! 

This  little  box  allows  you  to  communicate  with 
other  members  of  your  committee  on  items  which 
need  that  special  touch  of  person  to  person 
communication.  Let  me  tell  you  how  it  works. 

1)   When  you  call  up  CHATTERBOX,  you  will  be 
taken  to  the  end  of  your  last  entry.    If  you 
USE:   ARROW  KEYS, HOME, END,  PG  UP,  PG  DN, TAB, DEL,  RETURN 


VE 

BOAT 


o  quit]  

LINE  #:  6c 


This  is  tne  first  entry  of  the  chatterbox  for  the 
Boat  problem.    This  is  just  tne  beginninq. 

*  MESSAGE  ENDED:  01/26/1937  0?  16:24  *•*--**•  BOB  **•* 


-USE:   ARROW  KEYS,  HOME,  END,  PG  UP,  PG  DN,  TAB,  DEL,  RETURN— ' 
Alternative  Development 
Inout    FiriaL  Ho  Id  l  no    Review  Alternatives 

Fl=Help   F£=CHATTERBOX   F3=Prot>lern  Explanation   F10=Quit  CHATTERBOX  AVAILABLE 
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FIGURE  39 
SIGN-OFF  SCREEN 


TOUCHSTONE 


THANK    YOU    FOR    USING    TOUCHSTONE    -    HftVE    ft    NICE    DftY 


D 
PROGRAM  LISTING 


program  ATGUCH; 

type 

CDDEARRAY  =  string E12U; 

HELPDRIVE,  FILEDRIVE,  AUTHORITY  :  char; 

INVOCATOR  :  char; 

TEMPFILE  :  text; 

NAMESTRING,  NAMECHECK  :  stringC3U; 

USERCCDE  :  string C83; 

TEMPNAME,  CODENAME  ;  stringC12J; 

C*IFILTERA.LIBJ 
«IFILTERB.LIB3 
£*IF1I_TERC.LIB3 

begin 

TITLE; 

GETTHEDATE; 

INTRODUCTION; 

clrscr ; 

gotcxy  ( 14,3) ; 

write  ('Checking  -files  —  please  stand  by'); 

CHECKTHEFILES; 

got ox y  (14,3) ; 

write     (Checking    files    -    please    stand    by"); 

INVOCATOR    :=     *W; 

VERIFYCODE; 

assign  (TEMPFILE,   DRIVEFIL. TMP ' ) ; 

rewrite  (TEMPFILE); 

TEMPNAME  :=  cone at (HELPDRIVE,  FILEDRIVE,  AUTHORITY 

NAMESTRING,  INVOCATOR, 'KIMMY ' ) ; 

CODENAME  :=  ENCODE  (TEMPNAME); 

writein  ( TEMPFILE, CODENAME ) ; 

close (TEMPFILE) ; 
end.     Cprogram  T0UCHSTA3 


^-- 


program    BTCHJCH  ( INPUT  ,  OUTPUT)  ; 


typi 


STRING! 
STRINGS 
STRINGS 
STRING  .10 
STRING 12 


STRINGC2  3; 
STRINGC33; 
3TRINGC3I!; 
STRINGEiails 

3TRINGEI2:? 


PRCBREI 


record 

. CHECKSTATE 

CHECKCHANGE 

CHOICE 

PROBLEM 

NUMMEMS 

MEMBER 

DEFINITION 

DATELINE 
end; 


CHAR; 

CHAR; 

CHAR: 

STRINGC7H; 

INTEGER; 

STRING3; 

STRINGCSSH; 

STRING12; 


CRIREC 


record 
FLAG! 
FLAG2 
FLAG3 

CHECKPOINT 
STATFLAG 
CRITNAME 
CRITDEF 

end; 


INTEGER; 

INTEGER; 

INTEGER; 

INTEGER: 

CHAR; 

STRINGI0; 

STRINGE5SD; 


CODEARRAY 
STRINGARRAY 
CR I T ARRAY 
PROBARRAY 


=  STRING12; 

=  ar r ay Ci.. 59 n  of  CHAR; 
=  arrayCi..50j  o-f  CRIREC; 
=  arrayCl.  .200  3  o-f  PRGBREC; 


var 


HELPQRIVE,  CHT, 
INVOCATOR,  CHANGEREC 
FILEDRIVE, 

PROBLEMFLAG ,  HELPER ,  ALT 


CHAR; 

CHAR; 


STOPGAP,  CHATOK,    SCROLL IT, 
WEEDDEF,  FILECHECK  :   BOOLEAN; 

ANONYMOUS,  STARTUP,  STOPPROG , 
AUTHORIZED,  PR INTONE  :   BOOLEAN; 


COUNTED , 
W,    X, 
CLEARIT, 
Y ,    N , 


PT1,    COUNT, 
MCVEX ,  M 

PTC,    LIMMIT, 

MOVEOVER 
PT3 „    TRACK 1 , 


INTEGER; 
INTEGER; 
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COUNTER , 

Z,    A,    PT4,    SECNUM, 
SELECTED,    FLAGCOUNT 
B,    L,    NUM,    THRNUM, 

HELPS I ZE , 


INTEGER; 
INTEGER; 
INTEGER; 


CH,    CHA,  NEWPROB,  CHOICE, 

ALTERNAT I VE 

NAME3TRING,  NEWNAME 

PROBNAME 

NEWSTRING,  CHATRFILE,  DATE 


STRING! ; 

STRING3; 

STRINGC73; 

STRING12; 


PROBS 
NAMES 
INPUTSTRING 

CRITERIA 

MEMBERS 


PROBARRAY; 
CRITARRAY; 
STRINGARRAY; 

CRIREC; 
PROBREC; 


•KRITERIAFILE 

ACT I VEPROELEMF I LE 


file  o-f  CRiREC; 
-file  of  PROBREC; 


€*IFILTERI-LIBJ 
C*IFILTER2.LIBJ 
£*IFILTER3-LIB1 
C$IFILTER4.LIB2 

{$IFILTER7.LIBJ- 
C$IFILTER9.LIB} 
C*IFRONTEND-LIBJ 


procsdura  ProbMani duI an  an ; 


PROBMANIPULATIQN  * 

BTOUCH.PAS  * 

CH^     SELECTION,  CONTINUE,  * 

COMPLETED,  CODE  * 

INPUTSTRING,  SELECTED  * 

NONE  * 

NEWPROBLEM,  DELETEAPROBLEM,  * 

CHECKAPRQBLEM ,  * 

LGADEMUP,  GET7HEKEYS  * 

FILTER9.LIB,  FRGNTEND. LIB  * 

WIND0W1  * 
SETS  UP  A  MENU  SCREEN  FOR  THE    * 

INVOCATOR  TO  ACCESS  THREE  * 

DIFFERENT  MANIPULATIONS  * 

CONCERNING  PROBLEMS.  * 


* 
* 

* 

* 

* 
* 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 


GLOBAL  VARIABLES 
ARRAYS  USED 
EXTERNAL  CALLS 


EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


\'&r 


CH 


char 


6a 


SELECTION  :  STRING CI  3; 

CONTINUE, COMPLETED  :  boolean; 

TEMPFLAGSET  :  TEXT; 

CODE  z  INTEGER; 

begin    Cprobmanipulation} 
completed  ;=  false; 
repeat 

cirscr 5 

got ox v (22,3) ;     write  ( ' INVOCATOR  MENU ' ) ; 
gotoxy ( 14,7) ;     write  (*1.   Begin  New  Problem.'); 
gotoxy ( 14,8) ;     write  < '2.   Delete  a  Problem.'); 
gotoxy ( 14,9) ;     write  ('3.   Check  Status  on  a 
Specific  Problem.'); 

gotoxy ( 14, 10) ;    write  <'4.   Exit  to  Main  Menu'); 
gotoxy (23,14) ;    write  ('SELECTION:   *'); 
repeat 

gotoxy  (35,14);  write  ('*'); 

repeat 

gotoxy  (35, 14) ; 
getthekeys (inputstring , 1 )  ; 
SELECTION  :=  inputstring; 
vai (Selection , Selected , code) ; 
until  SELECTED  in  CI -.43; 

gotoxy  (12,15);       write('Is  this  selection 
correct?   Y * ) ; 

gotoxy  (40,15);        write  <"Y'>; 

gotoxy  (40, 15) ; 

repeat 

read  (kbd,CH); 
if  CH  in  L  ' y  * ,  ' n ' 3  then 
CH  :=  chr (ord (CH) -32) ; 
until  CH    in  C ' Y ' , ' N ' , #13  3 ; 
wr :te( CH ) ; 
if  CH  in  I'M    1    then 

CONTINUE  :=  false 
el  se 

CONTINUE  :=  true; 
until  CONTINUE; 
case  SELECTED  of 

1  :  NewProblem; 

2  :  DeleteAProbiem; 

3  :  CheckAProblem; 

4  :  COMPLETED  :=  true; 
end;    Cease  CH3 
LoadEmUp; 

until  completed; 
completed  :=  false; 
end;      Cprobmanipulation!) 


procedure  PersMani qui ati on ; 
*       PROCEDURE  :   PROCDURE  PERSMANIPULATION  * 
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* 
* 

* 
* 

* 
* 


SUPPORTS  PROGRAM 
LOCAL  VARIABLES 

GLOBAL  VARIABLES 
ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 


EXTERNAL  FILTERS 

CALLED  FROM 
PURPOSE 


BTGUCH.PAS  * 

CH,  SELECTION,  CONTINUE,  * 

COMPLETED.  CODE  * 

INPUTSTRING,  SELECTED  * 

NONE  * 

NONE  * 

GETTHEKEYS ,  CHANGESTATUS .  * 

ADDAMEMBER,    DELETEAMEMBER ,  * 

LOADEMUP  * 

FILTER7.LIB,  FILTER9.LI3,  * 

FR0NTEND.LI3  * 

WINDOW!  * 

SETS  UP  A  MENU  SCREEN  FOR  THE     * 

INVOCATOR  TO  ACCESS  THREE  * 

DIFFERENT  MANIPULATIONS  * 

CONCERNING  PERSONNEL.  * 


var 


CH 

SELECTION 

CONT I NUE , COMPLETED 

CODE 


char; 
STRINGC13; 

booi  ean; 
INTEGER; 


beqin    {Per  srlani  duI  at:  on} 
ccmpietea  :  =  false; 
repeat 

clrscr; 

gotoxy(22,3)  ;    write  (' INVOCATOR  MENU ')  ; 
gotoxy (6,6);    write  ('1.   Change  Problem  Invacatcr 
Password. ' ) ; 

gctoxy(6,7)  ;    write  <  2.   Adci/Delete  a  Problem 
Invocator . ' ) ; 

got ox v  £6»B) ; 

write  ("'3.   Add  a  Committee  (iemoer  To  An  Existino 


Committee. 


Commi  tti 


qotoxy(6, 9) ; 

write  ('4.   Delete  a  Member  From  An  Existing 
?.  '  )  ; 

gotoxy (6, 10) ;    write  ('5.   Exit  to  Main  Menu'); 
gotoxy (23, 14) ;   write  ('SELECTION:   * ' ) ; 
repeat 

gotoxy  (35,14);  write  ('**>; 

repeat 

got ok y  (35, 14) ; 
get  then:  eys (input string,!) ; 
SELECTION  :=  inputstring; 
val (Selection , Selected , code) ; 
until  SELECTED  in  CI -.53; 
gotoxy  (12,15);        write ('Is  this  selection 


ccrrac-: 


gotoxy  (40,15); 
gotoxy  (40, !5); 
repeat 

read  (kbd ,CH) ; 


write  ( ' Y* ) ; 
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i -f  CH  in  £  '  y 


n 


then 


CH  :=  chr <ord<CH>-32> ; 
un t i I  CH  in  C ' Y  * ,  ' N ' , #133 ; 
wnts(CH)  ; 
if  CH  in  C 'N'3  then 

CONTINUE  :=  false 
else 

CONTINUE  :=  true; 
until  CONTINUE; 
case  SELECTED  of 

1  :  CHANGEETATUS; 

2  :  changestatus; 

3  :  AddAMember; 

4  :  DeleteAMember ; 
COMPLETED  :=  true; 

{case  CH> 
LoadEmUp; 
until  completed; 
completed  ;=  false; 
end;      CPersMani  pul  ati  on} 


end; 


procedure  ChatManipuIation; 


* 
* 

* 

* 
* 

* 

* 

* 


PROCEDURE 
SUPPORTS  F 


'ROGRAM 


CHATMANIPULATION  * 

BTOUCH.PAS  * 

CH,  SELECTION,  CONTINUE,  * 

COMPLETED,  CODE  * 

ALT,  SELECTED,  INPUTSTRING  * 

NONE  * 

NONE  * 

PRINTCHATTERBOX,  * 

PRINTALTERNATIVES,  CLOSEFILE,  * 

LOADEMUP ,  SETTHEKEYS  * 

FRONTEND.LIB  * 

WINDOW!  * 

SETS  UP  A  MENU  SCREEN  FOR  THE  * 

INOVCATOR  TO  ACCESS  DIFFERENT  * 

MANIPULATIONS  CONCERNING  THE  * 
PRINTING  OF  FILES  AND  CLOSING  OF  * 

A  CHATTERBOX  ACCIDENTLY  LEFT  * 

OPEN.  * 


LOCAL  VARIABLES 

GLOBAL  VARIABLES 
ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 


EXTERNAL  FILTERS 
CALLED  FROM 

PURPOSE 


var 


SELECTION 

CON  r I NUE , COMPLETED 

TEMPFLAGSET 

_-LfDE 


char; 

STRINGC13; 
bool san; 
TEXT; 

INTEGER; 


CChatMani  pul ati  on! 
completed     :=    false; 
repeat 
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clrscr ; 

got ox v (22,3) ;    write  ( ' INVOCATOR  MENU'); 
gotoxy <S, 5);     write  < ' 1 .   Print  Out  Chatterbox 
for  Alternatives. '); 

gotoxy (3,6);     write  ('2.   Print  Out  Chatterbox 
tor  Criteria. '); 

qotaxv(3,7) ;     write  ('3.   Close  a  Chatterbox  File 
Which  Has  Been ' ) ; 

gotoxy <S,B>;     write  (      Left  Open 
Accidental ly. '  )  ; 

gotoxy (3,9);     write  ('4.   Print  Out  Developed 
Alternatives. ' ) ; 

gotoxy (3, 10) ;     write  ('5.   Print  Out  Developed 
Cri  teria.  ' ) ; 

gotoxy (8, 1 1 ) ;    write  ('6.   Exit  to  Main  Menu'); 
gotoxy (23, 14) ;   write  ('SELECTION:   *'); 
repeat 

gotoxy  (35,14);  write  ('*'); 

repeat 

gotoxy  (35, 14) ; 
getthekeys (input string , 1 ) ; 
SELECTION  :=  input string; 
vai (Selection ,Sei ected , cede) ; 
until  SELECTED  in  CI.. 63; 

gotoxy  (12,15);        write('Is  this  selection 
corr  =ct?   Y* ) ; 

gotoxy  (40,15);       write  f'Y'); 

gotoxy  (40T 15) ; 

repeat 

read  (kbd,CH); 
i-f  CH  in  C'y','n'3  then 
CH    :=  chr (ord <CH) — 32) ; 
until  CH  in  C  '  Y  '  ,  ' N ' , #133 ; 
wr :tei  C<ri )  ; 
i  f  CH  in  l  ' N ' 3  then 

CONTINUE  :=  -false 
el  se 

CONTINUE  :=  true; 
until  CONTINUE; 
case  SELECTED  of 

1  :  begin 

alt  :=  'A'; 
printchatterbox ; 
end; 

2  ;  begin 

ait  :=  rC; 
printchatterbox ; 
end; 

3  :  close-file; 

4  :  begin 

alt  : =  ' A ' ; 
pri  ntal ternati ves; 
end; 

5  :  begin 

al  t  :  =  'C  '  ; 


at 


printai  ternatives; 
end; 
6  :  COMPLETED  :=  true: 
end;    Cease  CH} 
LoadtmUp ; 
until  completed; 
completed  :=  -false; 
end;      CChatManipul at ion 3 


procedure  Window!; 


(#####**##*#*###*##*####**##*#*##*#*#***##*###**#****##**#* 


* 
* 
* 

* 
* 

# 
* 
* 

* 
* 
* 
* 

* 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 


GLOBAL  VARIABLES 


ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 


EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


WIND0W1  * 

BTOUCH.PAS  * 

CH,  SELECTION,  CONTINUE,  * 

COMPLETED,  CODE,  TEMPALT,  * 

TEMPALTER  * 

HELPER,  HELPS I ZE,  ALTERNATIVE,  * 

INPUTSTRING,  SELECTED,  CHATOK,  * 

NAMESTR I NG,  FILEDRIVE  * 

NONE  * 

ACTIVEPROBLEMFILE  * 

INTROSCREEN,  PROBMANIPULATION,  * 

PERSMANIPULATION  * 

CHATMANIPULATIGN,  LCADEMUP  * 

FILTER9„LI3  * 

MAIN  BODY  OF  PROGRAM  BTOUCH.PAS  * 

THIS  PROCEDURE  PROVIDES  THE  MAIN  * 

SCREEN  THE  INVOCATOR  WORKS  FROM.  * 

HE  WILL  ACCESS  ALL  OTHER  * 

INVOCATOR  ACTIVITIES  FROM  THIS  * 

PROCEDURE,  AND  EXIT  TO  DOS  WHEN  * 

THESE  ACTIONS  ARE  COMPLETED.  * 


****#**■*#*************************•**************** 


var 


CH 

SELECTION 

CONT I NUE , COMPLETED 

TEMPFLAGSET 

CODE 

TEMPALT,  TEMPALTER 


char; 

STRINGC13; 

booi  ean; 

TEXT; 

INTEGER; 

STRINGE1235 


begin    CWindowll 

COMPLETED  :=  false; 
repeat 

Assign  (acti  veprobl  em-f  i  1  e,  cone  at  (-f  i  1  edri  ve  , 
: probs. txt  '  > ) ; 

INTROSCREEN; 
HELPER  : =  ' C ' ; 
HELPS I ZE  :=  100; 
i-f  alternative  =   A'  tnen 
beqi  n 

tempalt  :=   Alternatives'; 
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tempalter  :=  'Criteria '; 
end 
else 

beqi  n 

tempalt  ;  =  'Criteria'; 
tempalter  :=  'Alternatives'; 
end; 
gotoxy <22, 3) ;   write  ( * INVOCATOR  MENU'); 
gotoxy ( 12,6) ;    write  ('1.  Praoism    File 
Mam  pui  at  ion  '  )  ; 

gotaxy ( 12,7) ;    write  < '2.   Personnel  File 
Manipulation ' ) ; 

gotoxy (12, S) ;    write  ('3.   Print/Chat  File 
Manipulation ' ) ; 

gotoxy ( 12,9) ;    write  ('4.   Change,  ',  tempalt,'  to 
' , tempal ter , 

'  Setting  '  ) ; 
gotaxy < 12, 10) ;   write  ('5.   Exit  ta  DOS.'); 
gotoxy (23, 14) ;         write  ('SELECTION:   *'>; 
repeat 

g  ot  ox  y  ( 35 ,14);  wr  i  t e  i ' * ' ) ; 

repeat 

gotoxy  (35,14); 
getthekeys (inputstring , 1 ) ; 
SELECTION  :=  inputstring: 
vai (Selection , Selected , cede) ; 
until  SELECTED  in  CI...  53; 

gotoxy  (IS, 15);       writet 'Is  this  selection 
correct?   Y ' ) ; 

gotoxy  (46,15);       write  ('Y'); 

gotoxy  (46,15); 

repeat 

read  (kbd.CH) ; 
i  f  CH  in  C  ' y ' ,  ' n ' 1    then 
CH  :=  chr (ord(CH)-32) ; 
until  CH  in  C ' Y ' , 'N ' ,#133 ; 
wr  i  t  e ( CH ) ; 
if  Ch\    in  C  *.N '*  1    then 

CONTINUE  :  =  false 
el  se 

CONTINUE  :=  true; 
until  CONTINUE; 
case  SELECTED  of 

1  3  probMampuiaticn,' 

2  :  PersMampuI  ati  on; 

3  :  Chatham  pui  at  ion; 

4  :  begin 

if  alternative  =  'C'  then 
begin 

alternative  :=  'Ar; 
tempalt  :=  'Alternatives'; 
end 
el  se 

beqi  n 

alternative  :=  'C'; 
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cempalt  :=  'Critsna'; 
end; 
gotoxy  (12,16)  ; 

write1!  "You  are    now  developing   ,tempal 
end; 
5  :  COMPLETED  :=  true; 
end;   lease  CHJ 
LoadEmUp; 
until  COMPLETED ; 
Chat OK  :=  False; 
end;      CWindowl} 


begin     CMain  Program! 

INVOCATOR  :=  'w"; 

GETFILENAME3; 

INTROSCREEN; 

if    not  authorised  then  begin 

got ok y  (9  ?3) ; 

write < 'ACCESS  DENIED  -  TOUCHSTONE  PROGRAM  EXITED8  "); 

delay (2000) ; 
end;    Cif  not  authorized} 

if  (AUTHORIZED)  and  (invocator  =  'M")  then  begin 
got ox v (20,3) ; 

write (ACCESS  APPROVED  -  WELCOME  TO  TOUCHSTONE:'); 
delay (3000) ; 
ALTERNATECHO I CE ; 

(*•***•*  call  touchstone  programs  **■*••*■-*) 
i-F  INVOCATOR  =   M*  then 
window 1 ; 

( *************#************^*******-*-*-*-  > 

clrscr ; 
got ox v  (4,8) ; 

write  ('THANK  YOU  FDR  USING  TOUCHSTONE  -  HAVE  A  NICE 
DAY ! ' ) ; 

delay  (2000) ; 

authorized  :=  false; 

end;     Ci  i    AUTHORIZED} 

end.       {Main  Program} 


program  C70UCH  i INPUT , OUTPUT) ; 


type 

BTRINB1 

STRING3 
STR I NS8 
STRING 18 
STRING 12 


STRINGC1II; 
STRINGC3II; 
STRINGlSII; 
str ins e is 1 ; 
STRINGC12II; 


PROBREC 


record 

CHECKSTATE 

CHECKCHANGE 

CHOICE 

PROBLEM 
NUMMEMS 
MEMBER 
DEFINITION 
DATELINE 
end; 


CHAR; 

CHAR; 

CHAR; 

STRINGC73; 

INTEGER; 

STRING3; 

STRINGC581; 

STRING 12; 


CRIREC 


record 
FLAG! 
FLAG2 
FLAG3 

CHECKPOINT 
STATFLAG 
CRITNAME 
CRITDEF 

end; 


INTEGER: 

INTEGER; 

INTEGER: 

INTEGER; 

CHAR; 

STRING13; 

STRING £583; 


CODEARRAY 
STR I NGARRA  Y 
CR IT ARRAY 
PROBARRAY 


STRING 12 
array C 1 . 
arrayC 1 . 

arrayC 1 , 


.59 J  of  CHAR; 

.  150]  o-f  CRIREC; 

.22(3:  of  PROBREC: 


var 


HELPDRIVE,  CHT, 
INVOCATOR,  CHANGEREC 

FILEDRIVE, 

PRGBLEMFLAG,  HELPER,  ALT 


CHAR; 

CHAR; 


STOPGAP,  CHATOK,  SCROLL IT, 

WEEDDEF,   FILECHECK  :   BOOLEAN; 

ANONYMOUS ,  STARTUP , 

LINEMARK,  STOPPROG,  AUTHORIZED   :   BOOLEAN; 


A,  QUITFLG1.  TRACK!,  COUNT, 
HELPSIZE,   PT1,   W 

B,  QUITFLG2,  MOVEX, 


PT2 ,   X 


INTEGER; 
INTEGER; 


/■_. 


I,  QUITFLG3,  THRNUM,  COUNTER, 

MDVEQVER ,   PT3 ,   Y 

J,  CHKFLAG1,  LIMMIT,  RECOUNT, 

SELECTED,   PT4,   Z 

L,  CHKFLAG2,  SECNUM,  COUNTED, 

NUM 

M,  CHKFLAG3,  SHOWME,  CLEARIT, 

CRITLIMIT 
N,  QUITFLAG,  MARKER, 
NE&CRITLIMIT 


INTEGER; 
INTEGER; 
INTEGER; 
INTEGER; 
INTEGER; 


FLAGCHOICE,  CH,  CHA,  NEWPROB , 

CHOICE,  ALTERNATIVE 

NAMESTRING,  NEWNAME 

PROBNAME 

NEWSTRING,  CHATRFILE,  DATE 


STRING1; 
STRING3; 
STRINGC73; 
STRING12; 


TEMPFILE 


TEXT; 


PROBS 
NAMES 
INPUT5TRING 


PROBARRAY; 
CRITARRAY; 
STRINGARRAY; 


CRITERIA 
MEMBERS 


CRIREC; 
PRGBREC; 


KRITErtlAFIL^. 

ACT I VEPRQBLEMF I LE 


file  of  CRIREC; 
file  of  PROBREC; 


£*IFILTER1.LIB> 
C*IFILTER2-LIB1 
£*IFILTER3.LIS> 
£*IFILTER4.LIBJ 
C*IFTLTER6.LIB1 
CSIFILTER7.LIB3 
£*IFILTER9.LIBJ- 
£*  I TA I  LEND.  LI  S3 
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procedure    InitVariabies; 


* 
* 
* 
* 
* 

* 
* 

* 

* 

* 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 
GLOBAL  VARIABLES 


ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 
EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


INITVARIABLE3  * 

CTOUCH.PAS  * 

CH,  TEMPALT  * 

PT1,  PT2,  PT3,  PT4,  QUITFLG1,  * 
QUITFLAS2.  L,  M,  N,  SUITFLG3,  '  * 
SHOWME,  THRNUM,  3ECNUM,  QUITFLAG,  * 
CHKFLAG1.  STARTUP,  STOPGAF ,  * 
SCROLLIT,  Y,  NUM,  CRITLIMIT,  * 
NEWCRITLIMIT,  RECOUNT,  CHANGEREC,  * 
CHA,  COUNT,  FILEDRIVE,  NAMESTRING,* 
PROBNAME,  ALTERNATIVE,  NEWSTRING,  * 
MEMBERS,  Z,  CRITERIA,  PROBLEMFLAG, * 
INPUTSTRING,  CHM 
NONE 

ACT I VEPROBLEMF I LE ,  KR I TER I AF I LE 
GETTHEKEYS ,  ODOMETER 


IR6.LIB,  FILTER9.LIB 


i-ii 

UJEEDHOPPER  _MENU 

INITIALIZES  VARIABLES 

KRITERIAFILES 


CHECKS 


* 

* 
* 


****+*****************************#*****************#***** 


v&r 


CHM  ;  CHAR; 

TEMPALT  :  STRINGC 123 ; 


Ccunt  : =  1 ; 
CHA  : =  ' N ' s 


begin    £Ini tVariabl es3 

ptl  :=  2;   pt2  :=  2;   pt3  :=  77;   pt4  :=  21; 

window  (ptl  , pt2,pt3,pt4)  ;  cirscr ; 

Cri teria. Flagl  :=  3:   QuitFIql  :=  1; 

ShowMe  ;=  0;    L  :=  0; 

cri  tan  a.  i  I  ag2  s  —  3;   QuitFlq2  ;  =  i; 

ThrNum  :=  1;    M  :=  0; 

criteria.  tTag3  ;  =  3;   3uitFlg3'  :=  i; 

SecNum  :=  i;    N  :  =  0; 

OuitFiaq  :=  0;  Y  :=  1; 

ChkFlagl  :=  0;         Num  :=  1; 

Startup  :=  True;        CritLzmit  :=  5; 

NewCritLimit  :=  10; 

StopGap  :=  True;       Recount  :=  0; 

changer ec  :=  'N'? 

Scroll  it  :=  False; 

As5i  gn  ( Acti  veProblemFi  1  e,  cone  at  (FILEDRI VE  , 

Reset (Acti  veProbi  emFi le)  ; 

repeat 

read (Acti vePr obi emFi ie, Members)  ; 
until  (Members. Member  =  NameString)  and 
(Members.  Problem  =  PrcbName)  ar.G 
(members. choice  =  alternative); 
NewString  :=  Probname+al ternati ve+ ' .  '  -^-Members,  member  ; 
cl ose (Act i veProbi emFi I e) ; 
Assign (kriteriaFi ie.concat (FILEDRIVE. ' : ' ,newstrinc ;  ; 


{-"robs,  txt 


reset  un  ten  an  le)  ; 
z.     ;=  fi  iesize  (kri  teriat  i  2  e)  ; 
if  2  =  0  then 
beqi  n 

Startup  :=  False;     probl  emf  1  ag  :  =  'a'; 
Cri teri a. Statf lag  s  =  probiemfiag; 
members. CheckState  s=  probi emf I ag; 
members. checkchanqe  ;=  chanqerec; 
cl ose ( kri teri af i 1 e)  ; 
end; 
if  z  >  (3  then 
begin 

reset (Kri  teri  aFi le); 
while  not  EOF (Kri teri aFi le)  do 
begin    CWhile  Statement 3- 

read (Kri teri aFi le,Cri  teri a) ; 
problem-flag  :=  Cri  teria,  StatFl  ag; 
odometer; 
end;      CWhile  Statement} 
close <Kri teri aFi le) ; 
end; 
case  probi emf lag  of 

*a'   ;   if  startup  then 

begin    -Clf  Statement} 

if  alternative  =  'A'  then 

tempait  i=     'Alternatives 
else 

tempait  :=   Criteria'; 
gotoXY(21Til) ; 
Write('Do  you  wish  to  review  your 

' , tempait ,  '  ?   ' ) ; 
qotoxy (65, 11); 
repeat 

qetthekevs ( Inputstrinq, i ) ; 
cha  :=  input string; 
gotoxy (61 ,  1  i  )  ; 
chm  :=  cha; 
until  chm  in  l  '  Y  '  ,  r  N  '  1 ; 
clrscr ; 
end;     -Clf  Statement] 
'b'   ;   begin    Clf  Statement} 
gotoXY (15,6) ; 

Write('You  Bre    entering  the  Sub  Criteria 
I evei „   If  '  )  ; 

q--i  4-  --.  V  V  *"  1  ^   ~T  v.  » 
ULUAl  -.  j.  <_J  ,  f    .-'  ^ 

Write(  this  is  the  initial  entry,  you 
may  review  the'); 

gotoXY(15,8) ; 

Write ('last  level  of  criteria,  but  you 
may  not  change ' ) ; 
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gotaXY<15,9) ; 

Write('it.   However  vou  may  review  the 

criteria  you'); 
gotcXYdS,  10)  ; 
WriteC'have  already  entered  at  this 

level  and  cnange ' ) ; 
gatcXY(15, 11) ; 
Write('that.   Do  vou  wish  to  review  your 

criteria?   ' ) ; 
got ox y (6i , 1 i) ; 
repeat 

getthekeys ( Input string , 1 ) ; 
cha  :=  inputstring; 
gotoxy (61 ,11); 
chm  :=  cha; 
until  chm  in  C*Y*,*N*3; 
clrscr; 
end;      C I +  Statement! 
begin    Cl-f  Statement} 
gotoXY (14,6) ; 
writer 'You  are    entering  the  Tertiary', 

Criteria  level.   If  '); 
gotoXY (14,7) ; 
Write('this  is  the  initial  entry,  vou 

may  revi ew  the ' ) ; 
gotoXY ( 14,3) ; 
Write* 'last  level  of  criteria,  but  vou 

may  not  change ' ) ; 
gotoXY(14,9) ; 
Write ('it.   However  vou  may  review  the 

criteria  you'); 
gotoXY (14, 10) ; 
Write ('have  already  entered  at  this 

level  and  change  ) : 
gotoXY (14, 11) ; 
Write ('that.   Do  you  wish  to  review  your 

cri  teri  a?   ' )  ; 
got ox y (61,11) ; 
repeat 

getthekeys ( Inputstring , 1 ) ; 
cha  :=  inputstring; 
got ox y (61,11); 
chm  :=  cha; 
unti I  chm  in  C ' Y * , 'N ' 3 ; 


i-  1  y 


scr 


end;      Clf  Statement; 
,'k','n','g','j','m','p'  : 
begin    C Inside  case  Statement 3 
gotoXY (15,7) ; 
Write1'  'Your  flag  has  been  set  stating  that  you 

have  ' ) ; 
gotoXY ( 15, S)  ; 
Wri te (  '  f ini shed  inputxng  criteria  at  the  last 

level . ' ) ; 
gotoXY (15, 9) ; 


Write ('You  may  not  enter  any  more  criteria  at 

this') 
gotoXY (15, 10) 
Wri te <  " ti me.   However  you  may  review  the 

criteria  you'); 
gotoXY (15, II) ; 
Writa( 'have  already  entered,  but  you  may  not 

change  it. ' ) ; 
gotoXY (15, 12) ; 

Write ('Press  Return  to  continue. '); 
cha  :=  'Y*; 

getthekeys  < Inputstr i  ng , 1 ) ; 
clrscr ; 
end;      CInside  case  Statement! 
'i ' , '1 ' , 'o'  : 

begin    CInside  case  Statement! 
gotoXY (15,7) ; 
Write ('All  members  of  the  committee  have 

f i  ni  shed  ' ) ; 
gotoXY(15,35 ; 
Wri te < 'entering  their  criteria.   You  may  now 

review ' ) ; 
gotoXY (15,9) ; 
Write('all  criteria  that  has  been  entered.   Be 

advi sed ' ) ; 
gotoXY  ( 15,  10)  ; 
Write ('that  this  procedure  will  be  repeated 

unti 1  there ' ) ; 
gotoXY(15,ll) ; 
Write('is  a  resolution  between  all  members 

concern! ng ' ) ; 
gotoXY (15, 12) ; 
Write ('what  criteria  is  to  be  kept.   Press 

RETURN  to ' ) ; 
gotoXY ( 15, 13) ; 
Wri te ( 'continue. ' ) ; 
cha  i =  ' Y ' ; 

getthekevs ( Inputstring , 1 ) ; 
clrscr; 
end;      CInside  case  Statement! 
end;     Cease  statement! 
end;      Clni tVari ables! 
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prGcsdurs  Ritebox; 


* 
* 
* 

* 
* 
* 
* 
* 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 
GLOBAL  VARIABLES 
ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 
EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


RITEBOX 

CTOUCH.PAS 

NONE 

CHATOK,  ALTERNATIVE. 

NONE 

NONE 

3ASIC30X 

FILTER!. LIB 

WEEDHGPPER_MENU 

SETS  UP  THE  INITIAL  ODOMETER 

SCREEN  AND  WRITES 

PRELIMINARY  DATA  TO  SCREEN. 


+ 

* 

* 
* 

* 
* 

* 
* 


**********************************************************) 


GotoXY (23,23) % 


begin  CRiteooxl 

cirscr;  ChatOK  :=  False; 

window (1,1, 73,25) ; 

CI  rscr;  basi  cbo:  (1,1,  73,22)  ; 

DortL*03ci9  j  :  =  $-f  and  1; 
GotoXY (2 ,23) ;       clreol; 
clreoi ; 

Lf  alternative  =   A   then 
begin 

GotoXY (23 ,23) ;   Write* 'Alternative  Development 
GotoXY ( 17,24) ; 

Write    ('Input    Final    Holding    Review 
Alternatives ' ) ; 
end 
el  se 
begin 

GotoXY  (23,23-  ;   Write  (  'Criteria  i_evel  or  Entry'); 
GotoXY (2,24) ; 

Write('  Major   Sub  Criteria   Tertiary  Criteria 
Final   Holding', 
Revi  sw  Cri teri a ' )  ; 
end; 
gotoXY(2,25) ;    wr i te ( 'Fl=Hel p   F2=CHATTERB0X 

F3=P!roblam  '  3  ; 
gotoXY(37,25) ;   write( 'Explanation   F10=Quit'); 
gotoxy  (30 ,  1 )  ;   textbackground  (.red )  ; 
text col  or (yellow) : 
write* '      TOUCHSTONE      r); 
tax  t background (biue; ; 
textcolcr (white) ; 
end;     {Ritebox J 


79 


procedure  MainCritena; 


* 
* 

* 
* 
* 

* 
* 

* 
* 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 
GLOBAL  VARIABLES 


ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 
EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


PROBLEMFLAG 


NUM,  3ECNUM, 


MA I NCR ITER I A 

CTOUCH.PAS 

3H0RTNAME,  LGNGNAME 

PT1,  PT2,  PT3,  PT4, 

QUITFLAG, 

CR ITER I A ,  OU I TFL 3 1 , 

QUITFLG2, 

THRNUM,  QUI TFL 33,  INPUTSTRING, 

MOVEX,  STOPPRGG, 

CRITLIMIT,  NEWCRITLIMIT,  COUNTED, 

L,  M,  N,  A 

NONE 

KRITERIAFILE 

GETTHEKEYS 

FILTER9.LIB 

MA I NCR  ITER I A 

ALLOWS  THE  COMMITTE  MEMBER 

ALTERNATIVES/ CRITERIA  TO  A 

EXISTING  FILE. 


TO  i 
NE'w 


DD 

OR 


* 


* 

* 
* 

* 


**&&&*#&*&#*&*&&**&#&&&***&#*&&**&##&****&#***&****&*#*&** ) 


<sa.r 


3H0RTNAME 
LONGNAME 


STRING l1S3; 
STRINGL5S3; 


77;   pt4  :=  21; 


begin     CMai nCri teria} 

pti  :=  2;   pt2  :=  2;   pt3  : 
wi  ndow (pti , pt2,pt3,pt4) ; 
i  f  problem-flag  <>  "a   then 
begin   Clf  statement! 

seek (kriteriaf i le,recount-l 3 ; 
read  Ckri  ten  af  i  Ie„cri  teria)  ; 
end;    <.li    statement] 
repeat 

if  (QuitFlaq  =  Zf)  and  (problem-flag  < 
begin   -Clf  statement  within  Repeat} 
case  ProbiemFlag  of 


then 


a 


: =  Num  +  1 


begin    -CA  statement  within  Case! 

if  cri  teria.  flagl  =  13  then 
GotoXYd,!) 

else 

GotoXY \ 1 „ whereY) ; 

Write < Num,  '  .    ) ;      Num 

movex  :=  wherex; 

QuitFIql  :=  QuitFIgl  +  1; 

Cri teria. FI agi  :=  Cri teria. Fl agl 
end;      CA  statement 
begin    C3  statement 

GotoXY  (4  ,  wherev)  ■; 

movex  : =  wherex; 

SecNum  :=  Succ (Sec Num) ; 

QuitFlg2  :=  QuitFlg2  + 


1; 


within  Case} 
within  Case  J 
Wn  te  (SecNum , 


dW 


Criteria. FIag2  :=  Criteria. Flag2  +  1; 
end;      £B    statement  within  Case} 
'c'   :   begin    CC  statement  within  Case] 

GatoXY (8, wherev) ;   Write (ThrNum, ') .    '); 
movex  :=  whsrex; 
ThrlMum  :=  ThrNum  +  1; 
BuitFIg3  :=  QuitFlg3  +  1; 
Cri teria.Fiag3  :=  Cr i teri a. Fl ag3  +  -  1 ; 
end;      CC  statement  within  Case} 
end;   {Case  Statement} 
repeat 

getthekeys ( Inputstring , 10) ; 
shortName  :=  inputstring; 
got ox y (movex ,wherey)  ; 
until  (ord (shortnameC 13 )  >  32)  or  (stopprog) ; 
a  :=  2; 

cri teria.critname  :=  shortNameC 1 3 ; 
while  CshortnameCaj  <>  chr(I3))  and  (a<li)  do 
begin 

cri teria. cri tname  :=   concat (cri teri a. cri tname, 

shortnameEa]) ; 
a  :  =  a  +  1 ; 
end; 
wri  teln; 

if  not  StcoProp  and  not  (QuitFlg2  >  CritLimit  +  1)  and 
not  CQuitFIq3  >  CritLimit  +  1)  ana 
not  (QuitFlgl  >  NewCri tLi mi t  +  1)  then 
begin   CLaad  1 1 i  e} 

GotoXY(2, wherev) ;  Wri te ( 'Define:    "); 

movex  : =  wherex ; 

repeat 

getthekeys ( Inputstring ,5S)  ; 
longName  :=  inputstring; 
got ox y vmovex ,  wherev  .j ; 
until  Cord < ^ongnameC i 1 )  >  32)  or  (stopprog); 
a  :=  2; 

cri  teria.  cri  tde-f  :=  1  onglMameC  i  j  ; 
while  (lonqnameCaJ  <>  chr(13))  and 
(a<counted+l )  do 
begin 

cri  teria.  cri  tde-f  :  = 

concat  (cri  teria.  cri  tde-f  ,1  ongnameCaD  )  ; 
a  :  =  a  +  1 ; 
end; 
wri teln; 

i  :=  Cri  ten  a.  Fl  agl  *  100; 
m  :=  Criteria. Flag2  #  10; 
n  :=  Cri teri a. Fl ag3; 
Cri teri a. Checkpoint  :=  1  +  m  +  n; 
seek  (kriteria+"ile,-filesize(kriteriafile)  )  ; 
Wri  te  (Kri  teria-f  i  le,  Cri  teria)  ; 
end;    CLoad  f lie} 
end;    Cl-f  statement  within  repeat} 
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until  StcpProg  or  (QuitFIgi  >  NewCri tLi mi t ) 
<QuitFlq2  >  CritLimit)  or 
(QuitFlg3  >  CritLimit); 

CMai  nCri  tsr  i  aj- 


ar 


* 
* 

* 
* 
* 
# 
* 

* 

* 

* 
* 

* 

* 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 
GLOBAL  VARIABLES 


procedure  Windaw3; 

WIND0W3  * 

CTOUCH.PAS  * 

CHM  * 
PROBLEMFLAG,  RECOUNT,  Z,  CRITERIA,* 

NUM,  SECNUM,  * 

THRNUM,  QUITFLG1,  QUITFLG2,  * 

QUITFLG3,  STOPGAP,  * 

CHKFLAG1,  CHKFLAG2,  CHKFLAG3,  * 

SHOWME,  QUITFLAG,  * 

INPUTSTRING,  FLAGCHOICE,  NAMES,  * 

LIMMIT  * 

NONE  * 

KRITERIAFILE  * 

ODOMETER,  FINALCHOICE,  LQADARRAY,  * 

NEWWRITE,  CHATRCHECK,  * 

RANTOCOMPLETIDN,  MA I NCR ITER I A .  * 

GETTHEKEYS  * 

FILTER6„LIB,  FILTER9.LIB  * 

WEEDHOPPER_MENU  * 

LISTS  ALTERNATIVES/CRITERIA  WHEN  * 

THE  USER  HAS  PREVIOUSLY  INPUT  * 

DATA  BUT  DOES  NOT  WANT  TO  REVIEW  * 

THAT  DATA.  * 


ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 


EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


**#**##****************+**-**************#*** 


var 


CHM 


CHAR ; 


begin      CWindow3> 

clrscr;        Odometer;        chatrcheck; 
recount  :=  0;        reset (kri teri afi 1 e) ; 
z     :=  f i 1 esize Ckri teri af i I e) ; 
ii     (prcbi em-flag  >  'a')  and  (problem-flag  < 
begin    Clf  Statement} 

reoeat    CMain  Repeat  Module} 
seek  (  kri  teri  a-fi  I  e  ,  recount)  ; 
read (Kri  teri  af i le, criteria)  ; 
repeat    {Embedded  Repeat  Module!) 


e  '  )  then 


*  Writing  Major  Criteria,  (X003),  previously  entered  * 

*  when  prool  em-flag  =  a-   FrcblemFlaq  =  b  -for  this     * 

*  module  to  be  activated,  and  allows  subcriteria  to   # 

*  be  entered,  (XX00),  X's  being  integers.  * 


■3 


■-> 


case  Criteria. -f lag  1  of 

1 -  -  100  :   begin    Cinside  case  statement  flag 13 
if  <Cri teria. f lag2  =  0)  ana 

(Criteria- Flag3  =  0)  tnen 
begin   CCase  If  Statement] 

if  cri teria. fiagl  =  1  then 

GotoXY (1,1) 
el  se 

GotoXY ( 1 ,whereY) ; 
Write (Num,  .    '  )  ; 
ThrNum  :=  1;    Secnum  :  =  1; 
Num  : =  Num  +  1 ; 
QuitFlg2  :=  1; 
QuitFlgl  :=  QuitFlgl  +  i; 
end;    -CCase  If  Statement} 

*  Writing  Sub  Criteria,  (XX00) ,  previousiv  entered    * 

*  when  problemflag  =  b.   ProblemFlag  =  c  for  this     * 

*  module  i:o  be  activated,  and  allows  tertiary         * 

*  criteria  to  be  entered,  CXXX0J ,  X's  being  integers.* 

case  Cri teria. flag2  of 

1..100  :  begin    Cinside  case  statement  flag23- 
:t  (Criteria,  fl  ag-3  =  3)  then 
begin   CCase  If  St at smentJ 
gotoXY  <4, wnerey) ; 
Wri te (SecNum, ' .    '); 
SecNum  :=  Succ (SecNum) ; 
QuitFlg2  :=  QuitFlg2  +1; 
ThrNum  : =  I ; 
if  QuitFlg2  =  Cri tLi mi t  then 

StooGap  z  —    False; 
3uitFIg3  :  =  1; 
end;     CCase  If  Statement} 

*  writing  Tertiary  Criteria,  (XXX0) ,  previously  * 

*  entered  when  problemflag  =  c.   ProblemFlag  =  d  * 

*  for  this  module  to  be  activated,  and  allows  * 

*  tertiary  criteria  to  be  entered,  (XXXX)  ,  X's  * 

*  being  integers.  * 

case  Cri  teria.  fi  ag-3  of 

1..100   :   begin   CCase  If  Statement] 
gotoXY (3,whersy) ; 
Wri  te (ThrNum,  '  ) .    '  ) ; 
ThrNum  : =  ThrNum  +  1 ; 
QuitFlg3  :=  QuitFlg3  +  1; 
if  QuitFlgS  =  Cr itLi mi t  then 
StopGap  :=  False; 
end;     CCase  If  Statement} 
end;    CCase  Statement  flag3} 


a; 


end; 


end; 


and;     Cinside  case  statement 
(Case  Statement  flag23- 

wri  teln (Criteria. Cri tName , 
' ,Cri teri a. Cri tDef ) 
end;      tinside  case  statement 
[Case  Statement  flagl! 

if  (ProblemFIag  = 
(Criteria. Fl aqi 
(Cri  teri  a. Fl ac2 
(Cri teri  a. FIag3 
(ChkFlag3  =  3) 


f I ag2J 


t i  aq i J 


" c ' )     and 
=  ChkFlaql) 
>  ChkFlaqZ) 
=  2J)  and 

then 


and 
and 


Showme  : =  1 ; 
ChkFlagi  :=  Cr i teri a. Fl agi ; 
ChkFlag2  :=  Cri teria. Flag2; 
ChkFlag3  :=  Cri teria. Flag3; 
recount  :=  recount  +  1; 


i-f 
if 


recount  <  z    then 

read (Kriteriaf i  ie, cri teria) ; 

(ProblemFIag  =   c')  then 
begin    £C    If  Statement} 

if  (Cri teria. Fl ag2  >  Ch kFlag2) 
(Cri teria. FIag3  =  0)  and 
(ChkFlag2  >  0)  ^nd 
(ChkFlag3  =  3)  then 
Showme  : =  is 

(Cri teria. Fl ag2  >  ChkFIag2) 
(Cri teria. Fl ag3  =  3)  and 
(ChkFiag3  >  3)  then 
Showme  :=  1; 

(Criteria. Flag2  =  ChkFIag2) 
(Cri teria. Flaq3  >  3)  and 


and 


1  T 


if 


if 


(ChkFl ag3 
Showme  ; = 
(Cri teria. 
( Cr  i 1  er  i  a  ■ 
(ChkFl ag3 
Showme  :  = 


tnen 

2  =  ChkFl ag2) 
3=3)  ana 
then 


unti  1 


=  3) 
3; 

Flag 

Flag 

>  0) 

i  3 

end;     £C  If  Statement! 
(Cri teria. Flag!  >  Chkflagi) 
(Showme  =  1)  or 

Cri tLimi t ) 

Cri  tLimi t) 


ana 


and 


and 


or 


or 
then 


(recount 
if  (QuitFlg2  > 
(DuitFlg3  > 
QuitFlaq  :=  i; 
MainCri  teri  a; 

Showme  :=  3;     QuitFlgl  :=  1; 
QuitFlg2  :=  1; 

QuitFlg3  :=  1;   Quit Flag  :=  0; 
until  (recount  =  z); 
end       £If  Statement: 
el  se 

i f  prooi emf 1 ag     ' e '  then 
begin    Clf/Else  Statement! 

while  not  EOF ( kri teri af i 1 e)  do 
begin    CWhile  Statement! 
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read  (Kritenaf  iie,critena)  ; 
case  Cr  i  teri  a.  -f  1  aql  of 

1..I00  :   beqin    Cinside  case 

5tatEin£?nt  flaql! 
if  (Cri  ten  a.  -f  i  ag2  =  0)  and 

(Criteria. F2aq3  =  0)  then 
beqin    CCase  I-f  Statement! 
if  cri  teria.  f  1  aql  =  1  'then 

GotoXY (1,1) 
el  se 

GotoXY (1, where/) ; 
Write (Num, ' .    ' ) ; 
Num  : =  Num  +  1 ; 
QuitFlql  :=  QuitFlgl  +  1; 
Secnum  : =  1 ; 
end;      (Case  If  Statement! 
case  Cri teria. f 1 aq2  of 

1..100   :   beqin     Cinside  case 

statement  flag2! 
if  (Cri  teria.  f  Iag-3  =  3)  then 
begin   -CCase  If  Statement! 
qotoXY (4 , wherey ) ; 
Wri  te  (SeciMum,  '  .    ')  ; 
SecNum  :=  Succ (SecNum) ; 
QuitFlqC  z=    QuitFIgC  +■  1; 
ThrNum  : =  1 ; 
end;     CCase  If  Statement! 
case  Cri teria. fl ag3  of 

1..100   :   begin   -CCase  If  Statement! 
gotoXY (S . wherey)  ; 
Write (ThrNum,  ' )  .    "  )  ; 
ThrNum  ; =  ThrNum  +  I ; 


QuitFlq3  :=  QuitFIq3  + 


1  . 


end;     CCase  If  Statement! 
end;    CCase  Statement  flaq3! 

end;      Cinside  case  statement 
f Iaq2! 
end;    CCase  Statement  flag2! 

Wri teln (Cri  teri  a. Cri tName,  : 
' ,Cri  teri  a. Cri  tDef )  : 
end;      Cinside  case 

statement  flaql! 
end;    CCase  Statement  flaql! 
if  QuitFlql  =  NewCr it Limit  then 

StooSap  :=  False; 
ChkFI aql  :=  Cri teri a. FI agl ; 
end;      CWhile  Statement! 
if  not  (QuitFlgl  >  NewCr i tLi mi t )  then 
Mai ncri teria; 
end;      i If /Else  Statement! 
ci  ose  (  krz.  ceri  a.-f  lie); 
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if  probiemfiag  <>  'z'     then 
begi  n 

gotDXYd  ,  19)  ! 

write( 'Are  von  finished  with  this  level  a-f 
cri  teria ,  '  , 

'or  will  you  be  entering  more"?'); 
gotoXY(l,20) ; 
write ('Enter   'F*'  for  Finished,  or   'M' 

More:    '  ) ; 
got ok v (45,23) 3 
repeat 

getthekeys ( Inputstring , 1 ) ; 
flagchoice  :=  inputstring; 
chm  :=  flagchoice; 
got ox y (45,20) ; 
until  chm  in  E'F','M'3; 
if  (FiagChoice  =  'F')  then 
FinalChoice; 
end; 

if  probiemfiag  =   z'  then 
rantocompl etion; 
LoadArray;        NewWri te (Names , Li mmi t ) q 
chatr check; 
end;     CWindow33- 


tor 


praceaur?    WEEDHGPPER_MENU ; 


(*********************************************************** 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 


GLOBAL  VARIABLES 


* 

* 
* 
* 

* 
* 

* 

* 

* 
* 

* 
# 

* 

* 

* 
* 

*-***  * #*# * *******  a- ** * 


ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 


EXTERNAL  FILTERS 

CALLED  FROM 
PURPOSE 


WEEDHOPPER_MENU 

CTOUCH.PAS 

CH,    SELECTION,  CONTINUE, 

COMPLETED,  FILECHECK, 

TEMPDEFINITION, 
WEEDDEF,  FILECH^ 


COUNTS 


UK 


5H0RTNAME 

COMPLETED 
X,  MARKER, 

MOVEQVER,  FILEDRIVE,  Z,  LINEMARK, 
MEMBERS,  NAMESTRING,  ALTERNATIVE, 
INPUTSTRING,  PROBNAME,  DATE, 
COUNT,  NAMES,  LIMMIT,  CHATOK 
NONE 

ACTIVEPRCBLEMFILE,  DATEFILE 

INTROSCREEN,  GETTHEKEYS,  RITEBOX, 

CHATRCHECK ,   INI TVAR I ABLE3 , 

LOADARRAY,  REVIEW,  WINDOWS, 

LOADEMUP 

:   FILTER2.LIB  FILTER7.LIB, 

FILTER9.LIB,  TAILEND.LIB 

:   MAIN  BODY  OF  PROGRAM  CTOUCH.PAS 

:   GIVES  THE  COMMITTEE  MEMBER  THE     * 

OPPORTUNITY  TO  EITHER  REVIEW  PAST  « 

ENTRIES  OR  START  NEW  ONES.  * 

***** ********************** *********** ) 
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var 

C'ri.     SELECTION 

CONT  1 NUE  ,  COMPLETED  ,  F I LECHECK 

DATEFILE 

SHORTNAME 

TEMPDEFINITION 

COUNTS 


CHAR: 

BOOLEAN; 

TEXT; 

STRINSlTj; 

STRINGC5S3; 

INTEGER; 


begin  -Corocadura    UJeedHoDperMENU] 

COMPLETED    :=    -false; 
repeat 

weeddef     :=    -false; 

FILE-CHECK  :=  False; 

INTROSCREEN; 

gotoxy(18,l> ;    write  ('COMMITTEE  MEMBER  MENU'); 

got ox y (1,3); 

write  ('At  the  present  time,  you  are    a  member  on 

committees  '); 
got ox y < 1 ,4) ; 

write  ('discussing  the  following  problems: '); 
Y  :=  6;       X  ;  =  1;       Marker  :=  3; 
MoveOver  :=  13; 

Assign  (Acti vePr obi emFI  ie ,concat  (FILEDRIVE,  : Probs. 
C$1-} 

Reset (Acti veProbi amFi I e) ; 
£*I+3 
z  :=  2; 
i-f  lOresuit  =  0  then 

begin    £1/0  result) 

while  not  EOF (Acti yeProblemfi 1 e>  do 
begin    CWhile  not  EOF  Loop > 


!  )  S 


LineMar 


U   •  =   C-s 


i  se; 


Read (Acti vePr obi emFi Ie ,  Members) : 
if  (members, memcer  =  namestring)  and 
(member s, choi ce  =  alternative)  then 
begin 

LineMark  :=  True; 
gotoXY(X,Y) ; 
UJri  te  (Members,  Prcdlem;  ; 
2  : =  succ (z ) ; 
end; 
if  Y  >  13   then 

begin    £if  Y  >  135 
case  marker  of 

1  :    noveover  :=  25: 

2  :   moveover  :=  37; 

3  :   moveover  :=  49; 
and; 

X  :=  MoveOver;   Y  :=  6; 
Marker  :=  Marker  +  1; 
end       Clf  Y  >  133 
el  se 

if  LineMark  then 
Y  :=  Y  +  1; 
&nd?  CWhile  not  EOF  Loop 3 


ci ose  iActivePrabiemti le) ; 
if  z  —  0   then 
begin 

gatoxy (3,3) ; 

write*:  'You  ars    not  currently  serving  on  a 

committee ' ) ; 
delay (4000) ; 
completed  :  =  true; 
and; 
if  not  completed  then 
begin 

gotoxy  < 1 , 15)  ; 

write  ("SELECTION  CHOICES:   1)   Chpose  a 

probl em ' ) ; 
gotoxy (46, 15)  ; 
write  ('2)   Exit  to  DOS'); 
gotoxy  (22, 16) ; 

write  ('SELECTION:   *');     gotoxy (34, 16) ; 
repeat 

read (kbd,CH) ; 
until  CH    in  C'1','2'j; 
wri  te (CH) ; 
del  ay  < 1300) ; 
end; 
if  C'r\    —     '  I  '  then 

beqxn  -C  select  choice} 
counts  :=  3; 
repeat 

GotoXY(22,16) ; 

Wri te ( 'Choose  the  problem:    '); 

repeat 

qetthekeys ( Inputstr i  ng , 7) ; 
shcrtName  :=  inputstring; 
gotoxy  (4-Z*  16)  ; 
until  shcrtnameClj  >  #32; 

{remove  spaces  from  shortnamel 
a  :  =  2 ; 

prcbname  :=  shortNameC 1 1 ; 
while  (shortnameCal  <>  chr (32))  and 
(a<3>  do 
begin 

probname  := 

cone  at  (probname,  short  name  Call )  ; 
a  :  =  a  +  1 ; 
end;    [while  shortnameLaJ 3- 
Cgets  the  date  from  a  file  DATE. TXT] 
assi  gn (da tefi I e ,  'date. txt  ) ; 
reset  (date-file)  ; 
readln(datefile,date)  ; 
close (datef i I  a)  ; 
reset (acti  veorobl emf i Is)  ; 
count  : =  i ; 

while  not  EOF (acti veproDi emf i i e)  do 
begin    Cwhile  statement} 

Read (Acti vePr col emFi  ie, Members)  ; 
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if  (Members. Fr obi  em  =  ProbName) 
and  (Members.  Member  =  NameStrinq) 
and  (member s. choice  =  alternative) 
then 

begin 

-filecheck  :=  true; 
members. datel ine  :=  date; 
tempde-F  i  ni  ti  on  :  = 
members. def ini ti on; 
end; 
seek (acti veprobiemf i le,count-l ) ; 
write  (acti  vepr  obi  em-fi  1b,  members)  ; 
count  :=  succ (count); 
end;      Awhile  statement! 
close  (Acti  vePr  obi  em-fi  le)  ; 
counts  :=  succ (counts) ; 
until  (filecheck)  or  (counts  >  2); 
if  not  (filecheck)  then 
begin 

clrBcr;        qotoXY(9,8); 

Wri teln (  '  I  '  'm  sorry  but  you  don '  t 

seem  to  be  typing'); 
gotoXY  (9,9); 
Write('in  a  problem  that  we  have  on 

file. ' ) ; 
delay (4300) ; 
completed  :  =  true: 
end      £If  Statement! 
else 

beqin 
clrscr ; 
got ox y (10,3) ; 
WeedDef  :=  true; 

write('A  short,  one  line  definiton  or 
'  , prcbname, 
'  f ol lows. ' ) ; 
gotoXY  (2,6);   wri tain (TempDe+ i ni ti on)  ; 
got ox y (10,8) ; 
write('If  at  any  time  you  wisn  to  see  a 

more  in  ' ) ; 
got ox y (10,10) ; 
write( 'depth  explanation  of  the 

problem,  press  F3 ' ) ; 
qotoxy (15,165 ; 

wri  te  ••  '  Press  Return  to  continue'); 
getthekeys  < Inputstr i  ng , 1 ) ; 
RITEBDX; 
CHATOK  :=  true; 
CHATRCHECK; 
INITVARIABLES; 

if  (CHA  =  #39)  and     (STARTUP)  then 
begi  n 

LOADARRAY; 

REV I EW     ( NAMES , L I MM  I T )  ; 
end  Cif    CHA=#89> 
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ex  se 

WIND0W3; 
end;    -C  If /Else} 
end    Cif  CH=1} 
el  se 

COMPLETED  :=  true; 
end   iif  lOresult  =  03 
else 

begin 

cirscr;  gotoxy  (13,3); 

write  ('File  PROBS.TXT  not  found  on  drive 

' ,FILEDRIVE) ; 
sound  (30(3)  ;  delay  (500)  ;  nosound; 

close (ActiveProbl emfi le) ; 

del  ay (2000);  COMPLETED  :=  true; 

end;   Celse} 
until  COMPLETED; 
i  oademup ; 
end;   {procedire  WeedHcpper_MENU} 


begin     CMain  Program} 
INVOCATOR  :=  'W; 
GETFILENAMES; 
assi gn  ( TEMPF ILE ,  ' DR I VEF I L . TMP ' ) ; 

reset  (TEMPF ILE) ; 
C^I+j- 
if  IOresult  =  0  then 

erase  (TEMPFILE) ; 
if  (AUTHORIZED)  and  (Invocator  =  'W')  than  begin 
INTROSCREEN; 
got ox y (10,3)  ; 

wri  tie  (  'ACCESS  APPROVED  -  WELCOME  TO  TOUCHSTONE!'); 
delay (3000) ; 
ALTERNATECHO I CE; 
(«■******  call  touchstone  programs  *******) 
if  INVOCATOR  =  'WJ  then 
WEEDHOPPER_MENU; 
(****************************************) 

INTROSCREEN; 

got ox y  (4,3) ; 

write  ('THANK  YOU  FDR  USING  TOUCHSTONE  -  HAVE  A  NICE 

DAY ! ' ) ; 
delay  (2000) ; 
end;    Cif  AUTHORIZED! 
1 oadthef i 1 es; 
end.       -CMain  Program} 
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program  FLAGSET < INPUT, OUTPUT) ; 


* 
* 

* 
* 
* 


PROGRAM 
ARRAYS  USED 
FILES  ACCESSED 

EXTERNAL  CALLS 
EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


ACT I VEPRGBLEMF I LE„ 

CRITSORT 


FLAGSET.PA3 

CR IT ARRAY 

TEMPFLAG3ET 

KRITERIAFIL1 

BUBBLESORT, 

FILTERS. LIB 

TS.BAT 

MERGES  THE  ALTERNATIVES/CRITERIA 

OF  ALL  MEMBERS  WHEN  CERTAIN 

VARIABLES  ARE  MATCHED-   USED  AS  A 

COM  FILE  AT  THE  LAST  OF  THE  BATCH 

FILE  TS.BAT.   NO  INTERACTION  FROM 

THE  USER  IS  REQUIRED.   THE   LAST 

ACT  OF  THIS  PROGRAM  IS  TO  SET  THE 

SCREEN  BACK  TO  NORMAL. 


* 

* 

* 
* 

* 
* 
* 

* 


******^***^*^*^****^***^*************^*********^*^**-^*****) 


:vpe 

STRING3 
STRINGS 
STRING 10 
STRING 12 

PROBREC 


CRIREC 


CRITARRAY 
PROBARRAY 


STRINGC33; 

STRINGC33  5 

STRINGCiSU; 

STRINGCIZj: 

record 

CHECKSTATE 

:  CHAR; 

CHECKCHANGE 

:  CHAR; 

CHOICE 

:  CHAR: 

PROBLEM 

:  STRIN6C73; 

MUMMEMS 

:  INTEGER: 

MEMBER 

:  3TRING3; 

DEFINITION 

:  BTRIN6C583; 

DATELINE 

:  STRING I 2: 

end: 

record 

FLAG1          : 

INTEGER; 

FLAG2          : 

:  INTEGER; 

FLAG3          : 

:  INTEGER; 

CHECKPOINT 

;  INTEGER; 

STATFLAG      : 

:  CHAR ; 

CRITNAME 

:  STRING1E; 

CRITDEF 

:  STRINGC583; 

end; 

=  array C i . . ISO 

]  o-f  CRIREC: 

=  arrayCl. .200 

]  o 

f  PROBREC; 

var~ 


FLAGSED,  FILEDRIVE, 
PROBLEMFLAG „  CHANGEREC 

STARTMERGE ,  ONCECQUNTED , 

ANONYMOUS ,  CHANGEFLAG 

PT1,  L,  COUNT,  FLAGCOUNT,  I 

PT2,  M,  LIMID,  KEEPTOGETHER 

PT3,  N,  TRACK 1,  DGUBLECOUNTED 

PT4,  Z,  LIMMIT,  COUNTED,  FLAGEND 

ALTERNATIVE 
NAMESTRING 
PROBNAME 
NEWSTRING,  DATE 

NAMES 
PRQBS 

CRITERIA 
MEMBERS 

KRITERIAFILE 

ACT I VEPROBLEMF I LE 


CHAR; 


BOOLEAN; 

INTEGER; 
INTEGER; 
INTEGER; 
INTEGER; 

STRINGC13; 

STRINGS; 

STRINGC71; 

STRING12; 

CRITARRAY; 
PROBARRAY; 

CRIREC; 
PROBRECi 

file  a-f  CRIREC; 
file  of  PRGBREC; 


:*ifilter6.libi 


procedure  PuttmTogether ; 


* 

* 

* 

* 

* 


PROCEDURE 
SUPPORTS  PROGRAM 

LOCAL  VARIABLES 
GLOBAL  VARIABLES 


ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 
E X  TERN AL  F I LTERS 
CALLED  FROM 
PURPOSE 


PUTEMTOGETHER  * 

FLAGSET.PAS  * 

NONE  * 

NEWSTRING,  PROBNAME,  ALTERNATIVE,  * 

MEMBERS,  FILEDRIVE,  COUNTED,  * 

LIMMIT,  KEEPTOGETHER  * 

CRITARRAY  * 

KRITERIAFILE  * 

NONE                               .  * 

NONE  * 

FLAGSETTER  * 

LOADS  AN  ARRAY  WITH  ALL  FILES  * 

HAVE  THE  SAME  PROBLEM  NAME.  * 

begin     CPufcEmTogether  3- 

NewSfcring  :  =  Prabname+ai ternati vs+ ' .  '-^-members,  member ; 

Assi  gn (kri  teri aFi le,concat (FILEDRIVE,  ' :  ' fnewstring) ) ; 
reset  ( tir  i  t er i  a-f  i  1  e)  ; 


oo 


while  not  EOF (Kri teriaFi le)  do 

begin    CWhile  Statement} 

Read (Kri teri aFi le ,Name5C Counted ] )  ; 

namesCcDunted] . checkpoint  := 

names C counted  3 . checkpoint  +  KeepTogether: 

Counted  : =  Counted  +  1 ; 

end;     {While  Statement} 

Limmit  :=  Counted; 

close (Kri teriaFi le)  ; 

KeepTogether  :=  KeepTogether  +  1; 

end;       Cputemtogether} 


procedure  Al 1  Together (var  Names  :  CritArray;   Limmit  : 
integer ) ; 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 
GLOBAL  VARIABLES 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 

* 

* 

*******  ***************************************#***********) 


ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 
EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


ALLTGGETHER 

FLAGSET.PAS 

NONE 

COUNTED,  NAMES,  LIMMIT, 

DOUBLECCUNTED,  PRQBLEMFLAG, 

NEWSTRING,  FILEDRIVE,  PROBNAME, 

ALTERNATIVE,  ONCECOUNTED 

CRITARRAY 

KRITERIAFILE 

BUBBLESORT,  CRITSORT 

FILTER6.LIB 

FLAGSETTER 

THIS  PROCEDURE  RELOADS  EACH 

USER'S  FILE  WITH  ALL  OF  THE 

CRITERIA  THAT  EACH  USER  INITIALLY  * 

ENTERED.   EACH  USER  THEN  WILL      * 

HAVE  THE  SAME  IDENTICAL  FILE  TO    * 

DELETE,  CHANGE  OR  ADD  TO  IN         * 

SELECTING  THE  FINAL  CRITERIA.       * 


begin    Cal 1  together! 
if  OnceCounted  then 
begin 

bubbl esort (names , Li  mmi t )  ; 
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counted  :=  1;  doubl ecounted  :=  i; 

rspaat 

if     (NaiTiesCcDunteci]  .  Cri  tname    = 

NamesLcountsd+l 3 . cri tname)  and 
(namesCcounted] . cri tdef  = 
namesLcaunted+i 1 . critdet )  then 
begin 

MarnesLCOuntedl  -  FI  agi  :=  0; 
doubl ecounted  :=  doubiecounted  +  1; 
end; 

counted  : =  counted  +  1 ; 

until  counted  =  Limmit; 

Cri tsort (names, Li mmi  t ) ; 

end; 

counted  : =  1 ; 

MewString  :=  Probname+al ternati ve+ ' .  -*-members.  member ; 

Assign  <  kri teriaFi le , con cat (FILEDRIVE,  ' ;  ' , newstring) ) ; 
r ewr i t e ( Kr i t er iafile)  ; 

repeat 

namesCcounted]  .  statf  1  ag  :=  problem-flag; 

if  namesCcounted  1 . -flag  1  >  0  then 
begin 

write (kri teri  a-fi  I  e,  Names  L~  Counted  1 ) ; 
end; 

counted  :=  counted  +  1; 

until  counted  =  Limmit; 

close (kri  teria-f  i  1  e>  ; 

OnceCounted  :=  False; 

end;      Lai  1  together } 
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procedure  FlagSetter; 


* 
* 

* 

* 

* 
# 

* 

* 


PROCEDURE 
SUPPORTS  PROGRAM 

LOCAL  VARIABLES 
GLOBAL  VARIABLES 


FLAGSETTER  * 

FLAGSET.PAS  * 

PROBLEMHOLD  * 

FILEDRIVE,  ALTERNATIVE,  * 

NAMESTRING,  PROBNAME,  COUNTED.-  * 
FLAGEND,  KEEPTOGETHER,  STARTMERGE,* 

COUNT,  CHANGEFLAG,  FLAGCOUNT,  * 

ONCECOUNTED,  MEMBERS,  FLAGGED,  * 

PROBLEMFLAG  * 

NONE  * 

TEMPFLAGSET,  ACT I VEPROBLEMFILE  * 

PUTEMTOGETHER,  ALLTOGETHER  * 

NONE  * 

MAIN  BODY  OF  PROGRAM  FLAGSET.PAS  * 

THIS  PROCEDURE  SETS  THE  FLAGS  SO  * 

THAT  THE  USER  CAN  TELL  WHERE  HE  * 

IS  PERSONALLY  AT  IN  THE  SELECTION  * 

PROCESS.  * 


ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 
EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


var 


PROBLEMHOLD 
TEMPFLAGSET 


CHAR; 

'EXT; 


pegin 


ChlagSetterJ 


assi  gn  ( temp-f  I  agset ,  '  -f  1  agset .  tx t  ' )  ; 
reset  (temp-f  1  agset )  ; 

readin  (temo-f  laqset ,  f  i  ledri  ve)  ; 

raadln  C  temp-r  1  agset ,  <bl~i  ternati  ve)  ; 
r&atiln ( temp tI agset „namestring)  ; 
readln  (temp-f  1  agset  ,probname;  ; 
~i  cse  (temp-f  I  agset)  ; 


erase (temp rl agset > ; 

Assign (Acti veProblemFi ie,concat (FILEDRIVE, 
reset (Acti  veProbl emFi le) ; 


;  r'r  oo? 


counted  :  =  1;  -3unt  ;  =  3; 

flagcount  :  =  is 

flagend  ;  =  1;  Startmerge  :=  Fa_i.se; 

OnceCounted  :=  True; 

KeepTogether  :=  1;    ChangeFiag  :=  True; 

while  not  EOF  (acti  vepr obi  ern-fi  le)  do 

beain    Cwnile  statement Z 

read (Acti  veFrobl emFi 1 e , members) ; 


?5 


if  (members. Pr  cb I  em  =  ProbName)  and 

'members. choi ce  =  alternative)  then 

begin 

if  members. member  =  namestring  then 
Flagged  :=  members. checkstats; 

flagend  :=  fiagend  +  1: 

end; 

count  : =  count  +  1 ; 

end;     twhile  statement} 

ci  ose (Act i  vePr obi  emFi le)  ; 

flagcount  :=  i; 

ZCheck    to  see  if  the  members  are  at  the  same  stage! 

reset (acti veprobi emf i ie)  ; 

•while  nor  EOF  (Acti  veProbiemFi  Ie)  do 

begin    CWhile  Statement] 

read (Acti veProbl emFi 1 e , members)  ; 

if  (members. checkchange  =  'C')  and 
(members. problem  =  probname)  and 
(members. choice  —  alternative)  then 
changefiag  :=  false; 

if  (members. Checkstate  =  Flagged)  and 
(members. probi em  =  orobname)  and 
(members. choice  =  alternative)  then 
Flagcount:  i  —    Flagcount  +  1; 

end;   Cwhile  statement! 

close (Acti  veProbiemFi  1  e)  ; 

reset (acti veprablemfi le)  ; 

if  FlagCount  =  flagend  then 

begin    Clf  Statement} 

while  not  EQF ( Acti veProbl emFi I e)  do 

begin    [While  Statement! 

r&a.ci  (Acti  veProbl  emFi  Ie  , members)  ; 
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i-f  (members.  Probl  em  =  ProbName)  and 

(members. choi ce  =  alternative)  then 

begin    {Embedded  I-f  Statement} 

case  members. CheckState  of 

'h '   :   begin 

PutEmTogether ; 
Startmerge  :=  True; 
members. CheckState 

:  =  '  i  ' ; 
problem-flag  :=  'i'; 
end; 

' j '   :   begin 

PutEmTogether ; 
Startmerge  :=  True; 
if  changeflag  then 
begin 
i-f  members,  choice 
=  ' A '  then 
begi  n 
members. CheckState 

.  ~~       ^-« 
problem-flag     :=     '  z  '  ' 
end 
el  se 

begi  n 
members. CheckState 

•  =  '  h  '  * 
problem-flag  :=  'b'; 

end: 
end 
el  se 

begi  n 

members. CheckState 

:=   i  ; 
problem-flag  :=  'i'; 
end; 
end; 

'  k  '   :   begin 

PutEmTogether ; 
Startmerge  :=  True; 
members. CheckState 

:  =  '  1  '  ; 
problem-flag  :=  '1  '; 
end; 

'm '   :   begi  n 

PutEmTogether ; 
Startmerge  :=  True; 
i-f  chanqe-flaq  then 
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begin 

members- CheckState 

:  =  'c  '  ; 
problem-flag  :=  ' c  '  ; 
end 
el  se 

begin 

members. CheckState 

problem-flag  :=  "i '; 
end; 
end; 

n '   :   begi  n 

PutEmTogether ; 
Startmerge  :=  True; 
members. CheckState 

:  =  'o  '  ; 
problem-flag  :=  'o'; 
end; 

p '   :   begin 

PutEmTogether ; 
Startmerge  :=  True; 

ir    change-flag  then 
begin 
members. CheckState 

•  -    '  z  ' ; 
problemflag  :=  'z'; 
end 
el  se 

begin 

members. CheckState 

:  =  '  a  ' ; 
problem-flag  :=  'o'; 
end; 
end; 


end;     -CCase  Statement} 
end;    {while  statement 3- 
end;      CEmbedded  I-f  Statement! 
close (acti veprobiemf i le); 
if  Startmerge  then 

begin    {I-f  startmerge  Statement} 
Count  : =  1 ; 
reset (acti  veprobiemf i le) ; 
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while  not  EOF (Acti veProbiemFi le)  do 

begin    CWhile  Statement} 

read (Acti veProbl emFi  i  e, members) ; 

i-f  (members.  Problem  =  ProbName)  and 

(members. choice  =  alternative)  then 
begin 

Al 1  Together (Names , Li  mmi  t ) ; 
members. CheckState  :=  problem-flag; 
end; 

seek (acti veprobl emfi le, count— 1 ) ; 
write  (acti  veprobl em-F i  1  e , members)  ; 
count  :=  succ (count); 

end;    {while  statement} 

close (acti veprobl emfi le) ; 

end;     {If  startmerge  Statement} 

end;   {if  statement} 

end;      CF lag Setter} 


begin    {main  program} 

f  lagsetter ; 

(*  Returns  the  screen  to  normal  textmode  *) 

textbackground (black) ; 

textcolor (white)  ; 

clrscr ; 

(*  Resets  the  border  to  black  *) 

portC*i33d9::=  *f  and  0; 

end.     {main  program} 
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( ########*##+########&#########**###+#&+##*##*######****### ) 


FILE 

WRITTEN  BY 
PURPOSE 


CONTENTS 


FILTER1.LIB   (192  lines) 
Mike  Neeley  2<  Bob  Wooldridge,  May. 86 
Procedure  library  for  TOUCHSTONE  (COOP 
Criteria  Filter  Program)  written  as  a  part 
o-f   a  thesis  for  a  Master  of  Science  in 
Computer    Systems  Management ,  Naval 
Postgraduate  School,    Monterey,  California 
BASICBOX,  CLOSEFILE,  SETFILE 


(*#*##*********##*#**###**********###***###*****#*********# ) 
PROCEDURE   :  BASICBOX 


WRITTEN  BY 

PURPOSE 

PARAMETERS 

EXTERNAL 
NEEDS 


Mike  Neeley  &  Bob  Wooldridge,  May, 86 

Based  on  a  program  created  by  Mark  Hayes 

Draws  a  box  as  specified  by  the  input 

vari  ables 

X1,Y1,X2,Y2  :  integers  (box  corner 

coordinates) 

none 


(***#******#************************#**#****#***^ 
procedure  BASICBOX  (XI , Yl , X2,Y2: integer > ; 

BC  :  arrayC 1 . . 1 , 1 . . 43  of  integer; 
M,  I , J  :  Integer; 


begin 


bcci,i: 

BCC1,33 


=  XI;     BCC1,23  :=  Yl; 

=  X2;     BCC1,43  :=  Y2; 


Cbox  parameters} 


far  M  :=  1  to  1  do  begin  (draw  a  single  bo; 

needed} 
GotoXY(BCEM, 13 ,BCCM,23) ; 
write (chr (201) ) ; 
for  J  :=  (BCCM,I3+1)  to  (BCCM,33-1)  do  begin 

GotoXY<J,BC:M,23) ; 

write(chr (205) ) 
end;   {for  J  :=> 
GotoXY(BCCM,33,BCi:M,23)  ; 
wri  te (chr ( 187) 3  ; 
for  I  :=  (BCCM,23+1)  to  (BCCM,43-1)  do  begin 

GotoXY(BCCM,13,I) ; 

write(chr (186) ) ; 

GotoXY(BCCM,33,I) ; 

write(chr (186) ) 
end;   Cf  or  I  :  =3- 
GotoXY(BCCM,i3,BCEM,4j) ; 
write(chr (200) ) ; 
for  J  :=  (BCCM,13+1)  to  (BCCM,33-1)  do  begin 

GotoXY(J,BCCM,43) ; 


as 
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write (chr (205) ) 
end;   {for  J  :  =3 
GotoXY<BCLM,33,BCEM,43) ; 
write (chr (188) ) 
end;  {for  M  :=3 
end;   {procedure  BASICB0X3 

( **************#**#*#*****************#****#*************** ) 

PROCEDURE   :  CLOSEFILE 

WRITTEN  BY  :  Mike  Neeley  &  Bcb  Wooldridge,  May, 86 

PURPOSE     :  Closes  the  chatterbox  file 

PARAMETERS  :  none 

EXTERNAL 

NEEDS       :  ALTERNATIVE  :  string  CI  3; 
(**#******#**********************#*************************) 

procedure  CLOSEFILE; 


var 

L,  X,  COUNTER 

CH 

ANONIMITY 

USERFILE 

PROBLEMNAME 

CHATRFILE 

CHECKFILE 

CHECKCODE 


integer; 
char; 
char; 

stringC23 ; 
stringC83 ; 
stringC 143 ; 
text; 
a,rra.vL  1 .  .  3 3 


of  char i 


procedure  GETANS; 

{sol  its  an  answer  from  the  user) 

begin 
repeat 

read(kbd,CH)  : 


if  CH    in 


z     J 


:hen 


CH  :=  chr (ord(CH)-32) ; 
until  CH  in  C'A'..'Z','  ',#133; 
end;     {procedure  GETANS3- 


begin 

clrscr ; 

gotoxy  (16,5) ; 

write  ('Problem  File  Name:   *******'); 

X  :=  36;  COUNTER  :=  1; 

repeat     {until  COUNTER  >BJ 
got ox y (X ,5) ; 

GETANS; 

CHECKCODE C COUNTER 3  :=  CH; 

if  not (CHECKCODE CI  3  in  C'   ',#133)  then  begin 

write  iCh) ; 

X  :=  X  +  1; 

if  iCH    =  #13)  then  begin 

CHECKCODE C COUNTER 3  :=  ALTERNATIVE; 
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for  L  :=  (COUNTER  +1)  to  S  do 

CHECKCODECLH  :=  '  '; 
COUNTER  :=  8; 
end;   Cif  CH=#13> 
if  COUNTER  =  7  then  begin 

CHECKCDDECS3  :=  ALTERNATIVE; 
COUNTER  :=  8; 
end;   Cif  C0UNTER=7J 
COUNTER  : =  COUNTER  +  1 ; 
end;  Cif  not  usercode} 
until  (COUNTER  >  3) ; 

PROBLEMNAME  :=  CHECKCODE; 

if  PROBLEMNAME  <>  #13  then  begin 

CHATRFILE  :=  concat (FILEDRIVE,  ' :  ' , PROBLEMNAME,  ' . zzw  '  > ; 

assign (CHECKF I LE, CHATRFILE)  ; 

£*I-J 

reset (CHECKF I LE) ; 

if  IOresult  =  0  then  begin 

got ox y  (IS, 10) ; 

write  ('CHATTERBOX  FILE  CLOSED*); 

r  ead ( CHECKF I LE , USERF I LE ) ; 

ANONIMITY  :=  copy (USERFILE, 2, 1 ) ; 

USERFILE  :=  concat <' C ', ANONIMITY) ; 

rewrite (CHECKF I LE)  ; 

write  (CHECKF I LE,  USERFILE); 
end   Cif  I0result3 
else  begin 

gotoxy  (17, 10) ; 

sound (440) ; delay (250) ; nosound; 

write  ('CHATTERBOX  FILE  NOT  FOUND'); 

delay (1500) ; 
end;   Celse? 
close (CHECKF I LE) ; 
delay( 1500) ; 
end;    Cif  PR0BNAME3 
end;   ^procedure  CLGSEFILE3 

(##*****#**##****#********#*#**##*****#*#******#*** 

PROCEDURE   :  SETFILE  (ANONYMOUS: bool ean ) ; 

WRITTEN  BY  :  Mike  Neeley  &  Bob  Wooldridge,  May, 86 

PURPOSE     :  Sets  up  the  chatterbox  file  (called  in  the 
main  program) 

PARAMETERS  :  ANONYMOUS  ;  boolean; 

EXTERNAL 

NEEDS        :  PROBNAME  :  string [83; 
(#**********************#******#*******#*******^ 

procedure  SETFILE; 

ANONIMITY  :  char; 

USERFILE  :  stringC23; 


is: 


CHATRFILE  :  stri ngC 143 ; 

CHECKFILE  :  text; 

begin 

CHATRFILE  :=  concat (FILEDRI VE,  ' :  ' ,PROBNAME ,  ' . zzw  '  ) 

assign (CHECKFILE, CHATRFILE) ; 

i-f  ANONYMOUS  then 
ANONIMITY  :=  'A' 

el  ss 

ANONIMITY  :=  'N'; 

USERFILE  :=  concat ( 'C ', ANONIMITY) ; 

rewrite (CHECKFILE) ; 

write  (CHECKFILE,  USERFILE); 

close (CHECKFILE) ; 
end;   {procedure  SETFILE3 
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( *.*#.#■*.#■■*■****##********************************************* ) 


FILE         : 
WRITTEN  BY 
PURPOSE 
Criteria 

thesis  for  a 

Management, 

Cai  if orni a 
CONTENTS 


FILTER2.LIB   (4373) 
Mike  Neeiey  ?*.    Bob  Wooldridge,  May, 86 
Procedure  library  for  TOUCHSTONE  (COOP 

Filter  Program)  written  as  a  part  of  a 

Master  of  Science  in  Computer  Systems 

Naval  Postgraduate  School ,  Monterey, 

CHATRCHECK,  SAVESCREEN,  WRITESCREEN 


( ********************************************************** ) 


FUNCTION 
WRITTEN  BY 
PURPOSE 


PARAMETERS 

EXTERNAL 

MEEDS 


CHATRCHECK 

Mike  Neeiey  ?*  Bob  Wooldridge,  May,S6 

Reads  the  information  in  two  files 

associated  with  a  specific  CHATRBOX  file  and 

determines  if  the  file  is  being  used  Candl 

if  a  recentry  entry  has  been  made. 

none 


:  type 

STRING3  =  string C31; 
DATASTRING  =  string  C503; 
var 

ALTERNATIVE  :  string CI  3; 
( ********************************************************** ) 


boolean; 
stringC 141 ; 
text; 
char; 
string C31 ; 


procedure  CHATRCHECK; 

var 

MES3AGEWA ITING ,  CHATA V A I LABLE 

CHATRFILE 

CHECKFILE 

USERCHECK 

USERNAME 

begin 

MESSAGEWAITING  :=  false; 
CHATAVAILABLE   :=  true; 


CHATRFILE  := 

concat (FILEDRIVE, ' : ' ,PROBNAME, ALTERNATIVE, '.zzw'); 

assign  (CHECKFILE, CHATRFILE) ; 

£$I-} 

reset  (CHECKFILE); 

{$1  +  3 

if  lOresult  =  0  then  begin 

reaa     (CHECKFILE, USERCHECK) ; 

if  USERCHECK  =  '0'  then 
CHATAVAILABLE  :=  false; 
end;   {if  lOresult} 
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c 1 ose( CHECKF I LE) ; 

CHATRFILE  := 

cone at (FILEDRIVE,  ':  ', PROBNAME, ALTERNATIVE,  '.:zq') 

assign  < CHECKF I LE .CHATRFILE) ; 

C*I-} 

reset  (CHECKF I LE) ; 

C*I+3- 

if  IGresult  =  3  then  begin 

read  ( CHECKF  I  LE  ,  USERNAME )  ; 

if  USERNAME  <>  NAMESTRING  then 
MESSAGEWAITING  :=  true; 
end;   £if  IOresult} 
c 1 ose ( CHECKF I LE ) ; 

window (1 , 1 ,80,25) ; 
if  not  CHATAVAILABLE  then  begin 
gotoxy  (59,25) ; 
textbackground (red)  ; 
write  ('  CHATTERBOX  IN  USE   '); 
end   Cif  not  CHATAVAILABLE} 
el se  begin 

if  MESSAGEWAITING  then  begin 
gotoxy  (59,25); 
textbackground (red)  ; 
write  ('NEW  CHATTERBOX  ENTRY'); 
end   Cif  MESSAGEWAITING} 
else  begin 

gotoxy  (59,25) ; 
textbackground (blue) ; 
write  ('CHATTERBOX  AVAILABLE'); 
end   {if  not  CHATAVAILABLE} 
end; 

textbackground (blue)  ; 
window (pt i ,pt2,pt3,pt4)  ; 
end;   {procedure  CHATRCHECK} 


ia: 


( ********************************************************** ) 


FILE 

WRITTEN  BY 
PURPOSE 


CONTENTS 


FILTERS. LIB   (10579) 

Mi  ka  Neeiey  •?<  Bob  Wool  dridge.  May, 36 
Procedure  library  -for  TOUCHSTONE  (COOP 
Criteria  Filter  Program)  written  as  a  part 
of  a  thesis  for  a  Master  o-f  Science  in 
Computer  SysteiTts  Management,  Naval 
Postgraduate  School,  Monterey,  California 
SCROLLBOX 


( ********************************************************** ) 


PROCEDURE 
WRITTEN  BY 


PURPOSE 


PARAMETERS 


EXTERNAL 

NEEDS 


SCROLLBOX 
Mike  Neeiey  &  Bob  Wool dridge,  May, 86 
Ward  processing  section  based  on  a  program 
by  Mark  Hayes 

Reads  -from  a  text  -file,  puts  text  into  a 
specified  window,  and  allows  scrolling 
within  that  window 

upper  left-hand  corner  of 

scrol I box 

length  of  text  (130  lines  Dr 

1  ess) 

designates  the  title  of  the 

scrol Ibox 


XX,YY 

ENDTEXT 

TITLECODE 


FILEDRIVE 
HELPDRIVE 
PROBNAME 


drive  on  which  the  problem 
elaborator  file  is  located 
drive  on  which  the  help  files 
are  located 
name  of  the  textfile  called 


(  ****************^************##****^******#**##*#*^^.^.4(.*4<.^.#  ) 

procedure  CHATR30X 

( F I LEDR I VE : char ; PROBF I LE : STR I NGB ; PERSNAME : STR I NG3 ) ; 
forward ; 

procedure  SCROLLBOX 
(XX, YY: integer; ENDTEXT: integer; TITLECODE: char) ; 

type 

WPARRAY  =  array C 1. . 100,1. .503  of  char; 
TEXTARRAY  =  arravC 1 . . 1003  of  str ingC50Il ; 
S7RING50  =  string £503; 


\/sr 


ENDRUN,  USEDFILE,  NEWFILE  :  boolean: 

SCROLLFOUND,  EXPANDFOUND  :  boolean; 

TEXTLINE,  X,  Y,  STOP  :  integer; 

LASTLINE,  ENDSCROLL,  CHECKLINE  :  integer; 

A,B,F,I,J,K,L,M  :  integer; 

CH,  TEMPCH1,  TEMPCH2,  USERCHECK  :  char; 

INSTRDRIVE  :  char; 


Lassorted 
counters) 
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USERNAME,  EXTENDER                  :  string C33; 

IN3TRFILE  :  stringC83; 

EXPANDFILE,  HELPFILE   :  stringC143; 

WORKFILE  :  text; 

TEMPNAME  :  array  CI.. 33  of  char; 

TEMPARRAY  :  ^rray    CI.. 503  of  char; 

NAME  :  array  CI..  1253  of  stringC33; 

SCREEN  :  array  C  1 .  .  25, 1 .  .  803  of  integer; 

ATTRIBUTE  :  array C 1 .. 25 , 1 .. 303  of  integer; 

WORDPROC  :  WPARRAY; 

TEMPLINE,  WGRDLINE     :  TEXTARRAY; 


procedure  FILLSCREEN  (STARTLINE  :  integer); 

{writes  the  file  array  to  the  screen  starting  at  the} 
{line  sent  as  a  parameter} 

var 

W,X  :  integer; 

begin   [procedure  FILLSCREEN] 
F  :=  1; 
if  EXPANDFDUND  then  begin 

for  J  :=  STARTLINE  to  (STARTLINE  +  8)  do  begin 
for  K  :=  1  to  50  do  begin 
got ox y (KTF) ; 
write  (W0RDPRQCCJ,K3) ; 
end;   {for  fO 
F  :=  F  +  1; 
end;   {for  J} 
end   {if  EXPANDF0UND3- 
else  begin 

for  J  :=  STARTLINE  to  (STARTLINE  +  8)  do  begin 
got ox y ( 1 ,F) ; 
writs  (W0RDLINECJ3)  ; 
W  : =  wherex ; 
for  X  :=  W  to  50  do 

write ( '  ' ) ; 
F  :=  F  +  1; 
end;   {for  J} 
end;   {else} 
end;   {procedure  FILLSCREEN} 


procedure  3AVE3CREEN ( X , Y: integer ) ; 

{Reads  the  screen  under  the  heipbox  into  an  array} 

begin   {procedure  SAVESCREEN} 
for  A:=  Y  to  (Y+10)  do  begin 
for  B  :=  X  to  (X+55)  do  begin 
SCREEN C A, B 3  := 

MemWC^3800: ( ( C A-l ) *160> + ( (B-l>*2) ) 3; 
ATTRIBUTECA,B3  := 

MemW C$8800: (  ( ( A-l > *160>  +  ( (B-l ) *2) +1 >  3 ; 
end;    CB3 
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end;   CA} 
end;   {procedure  SAVESCREEN} 


procedure  WRITESCREEN (X , Y: integer) ; 

{write  back  the  saved  portion  of  the  screen} 

begin   {procedure  WRITESCREEN} 
for  A:=  Y  to  (Y+10)  do  begin 
for  8  :=  X  to  (X+55)  do  begin 

MemWC$BS00:  ( < (A-i ) *160)  +  ( (B-l ) *2)  ) 1     :  = 

SCREENCA,BII; 
MemWC$B800:  ( ( < A-l ) *160)  +  < (B-l ) *2) +1)3  i 

ATTRIBUTECA,B3; 
end;   {B} 
end;   {A} 
end;   {procedure  WRITESCREEN} 


begin   {procedure  SCROLLBOXD 

{  ***  SCREEN  SETUP  PORTION  ***  J 
SA VESCREEN ( X  X  ,  Y  Y )  ; 

text col  or ( 15) ;  text back ground  <2)  ; 
window (1 , 1 ,80,25) ; 
BASIC30X  <XX,YY,  (XX+55)  ,  CYY+I0)  ) ; 


textcoior (0) ;  tex tbackground ( 15) 
gotoxy  ( (XX+B) ,YY) ; 
case  TITLECODE  of 


(draw  3CR0LL30X  window 
and  de-fine} 


{writes  appropriate 
title  of  box} 


'A' , 'a'  : 

begin 

write  ( ' 
INSTRFILE 

end; 
'B' , 'b'  : 

begin 

write  ( ' 


PROBLEM  EXPLANATION 
=  PRQBNAME; 


CHATTERBOX  HELP  SCREEN 


I NSTRF I LE  : =  ' CHATRBOX ' ; 

end; 
'C- ,'c'     : 

begin 

write  ('  INSTRUCTION  SCREEN  #1 
INSTRFILE  :=  'HELPBX1'; 

end; 
'  D  '  ,  '  d  '  : 

begi  n 

write  ('  INSTRUCTION  SCREEN  #2 
INSTRFILE  :=  'HELPBX2'; 

end; 
•E','e'  : 

begin 

write  ('  INSTRUCTION  SCREEN  #3 
INSTRFILE  :=  'HELPBX3'; 

end; 


(F-10  TO  QUIT) 


(F-10  TO  QUIT) 


); 


)  ; 


(F-10  TO  QUIT)   ')  ; 


); 
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F*  „  'f  '  : 
begin 

write  <  '     INSTRUCTION  SCREEN  #4   (F-10  TO  QUIT)   '); 

INSTRFILE  :=   HELPBX4'; 
end; 
'G' ,  'g  '  : 
begin 

write  ('  INSTRUCTION  SCREEN  #5   (F-10  TO  QUIT)  , '); 

INSTRFILE  :=  'HELPBX5'; 
end; 
'  H  '  ,  '  h   : 
begin 

write  ('  INSTRUCTION  SCREEN  #6   (F-10  TO  QUIT)   '); 

INSTRFILE  :=  'HELPBX6'; 
end; 

begin 

write  ('  INSTRUCTION  SCREEN  #7   (F-10  TO  QUIT)   '); 

INSTRFILE  :=  'HELPBX7'; 
end; 
'  J  '  ,  '  J  '  : 
begin 

write  ('     INSTRUCTION  SCREEN  #8   (F-10  TO  QUIT)   '); 

INSTRFILE  :=  'HELPBX8'; 
end; 
K  '  ,  k  '  ; 
begin 

write  ('  INSTRUCTION  SCREEN  #9   (F-10  TO  QUIT)   '); 

INSTRFILE  :=  'HELPBX9'; 
end; 
L',  '1  '  : 
begin 

write  ('  INSTRUCTION  SCREEN  #10  (F-10  TO  QUIT)   '); 

INSTRFILE  :=  'HELPBX10'; 
end; 
M  '  ,  '  m '  : 
begin 

write  ('  INSTRUCTION  SCREEN  #11  (F-10  TO  QUIT)   ' > ; 

INSTRFILE  :=   HELPBX11'; 
end; 
N'  .  *n'  : 
begin 

write  ('  INSTRUCTION  SCREEN  #12  <F-10  TO  QUIT)  '); 

INSTRFILE  :=  'HELPBX12'; 
end; 

begi  n 

write  ('  INSTRUCTION  SCREEN  #13  (F-10  TO  QUIT)   '); 

INSTRFILE  :=  'HELPBX13'; 
end; 
P'  ,  *p '  : 
begin 

write  ('  INSTRUCTION  SCREEN  #14  (F-10  TO  QUIT)   '); 

INSTRFILE  :=  'HELPBX14'; 
end; 
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begi  n 

write  < 
end; 
end;   Cease  TITLECODE} 


PROBLEM  EXPLANATION 


); 


if  TITLECODE  in  C 'A ' , *a ' , * Z * ,  'z *  1    then  begin 

EXTENDER  :=   zz>:  '; 

INSTRDRIVE  :=  FILEDRIVE; 
end    Cif  TITLECODE} 
else  begin 

EXTENDER  :=  'zzy'; 

INSTRDRIVE  :  =  HELPDRIVE; 
end;   Celse} 

if  TITLECODE  in  C'Z','z'l  then  begin 
qotoxy  ( (XX) , (YY+10) ) ; 
write  ('  USE:   UP&DN  ARROW  KEYS, 

HOME, END, PG  UP,PG  DN ,F- 10 (qui t)  '); 
end   {if  TITLECODE} 
else  begin 

gotoxy  (  (XX+2) , (YY+10) )  ; 

write  ('USE:   ARROW  KEYS, HOME, END, PG  UP,PG 
DN , TAB , DEL , RETURN ' ) ; 
end;  {else} 

tsxtcolor ( 15) ;  textbackgrounb (2) ; 
window ( (XX+i) , (YY+15 , (XX+54) , (YY+9) ) ; {clear  the  screen 

area  3 
clrscr ; 

window* (XX+3) , (YY+1) , (XX+53) , (YY+9) ); {identify  the  text 

parameters} 


{  ***  FILE  SETUP  PORTION  ***  ] 


EXPANDFOUND  :=  false; 

if  TITLECODE  in  C'Z','z'l  then  begin 
for  J  :=  1  to  50  do 
for  K  :=  1  to  100  do 

W0RDPR0CCK,J3  :=  chr(32); 


EXPANDFOUND  :=  true 
end   {if  TITLECODE J 
else  begin 

HELPFILE  := 
concat ( INSTRDRIVE, ' : ' , INSTRFILE, 

assign  (WORKFILE, HELPFILE) ; 


C$I-> 

reset  (WORKFILE) ; 

C*I+3 

if  IOresult  =  0  then  begin 
I  :=  1; 


{the  wordprocessing 

srrAy    is} 
{initialized  to  ail 

blanks} 


' , EXTENDER) ; 

{open  CHATRFILE  and 
read  into} 

(word  processing 
Sir  r  ay; 


while  <not  ear <WGRKFILE> )  and  (I  < (ENDTEXT+1 ) )  do 
begin 

readln  (WGRKFILE, WORDLINEC 1 1 ) ; 
I  s=  I  +  ■  1; 
end;    {while  not  eo-f } 
SCROLLFQUND  :=  true; 
end   Ci-f  IOresult} 
else  begin 

got ox v (5,5) ; 

i-F  TITLECODE  in  C*A*,"a'3  then 

write  ('NO  EXTENDED  EXPLANATION  FOR  THIS  PROBLEM') 
else 

write  ('       HELP  FILE  NOT  FOUND  ON  DISK'); 
got ox y (5,7) ; 

write  ('        Press  any  key  to  continue  '); 
SCROLLFOUND  :=  -False; 
repeat  until  keypressed; 
end;   {else} 
c 1 ose  ( WORKF I LE ) ; 
end;   {else! 

•C  ***  INITIALIZATION  *■**  } 


LASTLINE  :=  1; 

USEDFILE  :=  -false;      {of  run  &  the  "dirty  bit"  flag} 

i-F  SCROLLFOUND  or  EXPANDFOUND  then  beqin 
FILLSCREEN  CI); 
i-F  EXPANDFOUND  then 

ENDSCROLL  :=  100 
else 

ENDSCROLL  :=  ENDTEXT;  {designate  last  line  of  scroll-} 

■Conlv  text} 
X  s=  1;  Y:=  1;  { initialize  column,  row} 

TEXTLINE  :=  1;  {initialize  textiinel 

ENDRUN  ;=  false;        {initialize  flag  for  end  of  run} 

•C  ***-  SCROLLING  ROUTINE  ***  > 

repeat 

got ox y (X,Y) ; 
read  (kbd,CH); 
case  CH  of 

#32,. #126  :       {regular  characters} 
if  EXPANDFOUND  then  begin 
USEDFILE  :=  true; 

if  WORDPROCC TEXTLINE, XI  <>  chr (32)  then  begin 
TEMPCH1  :=  CH; 
for  K  :=  X  to  50  do  begin 

TEMPCH2  :=  WORDPROCt TEXTLINE ,K1 ; 
WGRDPRQCC TEXTLINE,  JO  :  =  TEMPCHi; 
got ox y (K, TEXTLINE) ; 
wr  i  t  e  <  WORDPRCC  l  TE X TL I NE , K 1 ) ; 
TEMPCHI  :=  TEMPCH2; 
end;    {for  K=X  to  503 
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snd    {if  WORDPROC  <>  chr(32>} 
else  begin 

WORDPROC C TEXTLINE.,  XII  :=  ch; 
write (ch) ; 
end;    {else} 
X  :=  X  +  1; 

i-f  TEXTLINE  >  LASTLINE  then 
LASTLINE  :=  TEXTLINE; 
snd^        Cif  EXPANDFOUND} 
#8:  CBACKSPACE1 

it  EXPANDFOUND  then  begin 
if  X  >  1  then  begin 
X  :=  X  -  1; 
gotoxy(X,Y> ; 

-for  J  :=  X  to  49  do  begin; 
WORDPROC C TEXTLINE, J 1     :  = 

W0RDPR0CCTEXTLINE,J+1J; 
wr i te ( WORDPROC C TEXTLINE, J 3) ; 
end;   {for} 
end;   Ci-f  X>1J 

WORDPROCC TEXTLINE, 50 1     :  =  chr (32) ; 
qotoMy (50, Y) ; 

write<WORDPROCCTEXTLINE,50j) ; 
end;   Ci-f  EXPANDFOUND > 
#9  :  CTAB  key} 

i-f  EXPANDFOUND  then 
if  X  <  46  then 
X  :=  X  +  5; 
#13:  {RETURN  key} 

if  EXPANDFOUND  then  begin 
if  Y  <  9  then  begin 
Y  :=  Y  +  i; 
X  :=  1; 

TEXTLINE  :=  TEXTLINE  +  1; 
end   Cif  Y<9} 
else  begin 

if  TEXTLINE  <I00  then  bsqin 
TEXTLINE  :=  TEXTLINE  +  1 ; 
FILL5CREEN (TEXTLINE  -  3) ; 
X  :=  1; 
end   Cif  TEXTLINE  <100} 
else  begin 

sound (800) ; delay (50) ; nosound;  {Too  far 

down! 
end;  {else} 
end;    {else} 
end;   Cif  EXPANDFOUND} 
#27:  {ESCAPE  key} 

begin 

read  (kbd, CH); 
case  CH  of 
«*  #60  : 

begin 

if  not  (TITLECODE  in  C'B','b*3)  then  begin 
CHATRSOX <FILEDRIVE,PRGBNAME,NAMESTRING)  ; 
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window ( (XX+3) , (YY+1) T (XX+53) , <YY+9) ) ; 
textcolar (15) ;  textbackgraund (2) ; 
end;    Cif  not  TITLECODE} 
end;    Cease  #60} 
*>  #£>S  :  ENDRUN  :=  trua;        {Key  F-1J3  to  quit  } 

#72  :  CUP  arrow  key} 

begin 

if  Y  >  1  then  begin 

Y  :=  Y  -  1; 

TEXTLINE  :=  TEXTLINE  -  1; 
end   Ci-f  Y>1} 
else  begin 

if  TEXTLINE  >  1  then  begin 
TEXTLINE  :=  TEXTLINE  -  1; 
FILLSCREEN  (TEXTLINE); 
end    Cif  TEXTLINE >1J 
else  begin 

sound  (2B00)  ;  del  ay  (50)  ; nosound; 
•CToo  far  up 3 
end;   -Celse} 
end;    Celse} 
end;   C#72  case} 
#S0  :  CDOwN  arrow  key} 

begin 

if  Y  <  9  then  begin 

Y  •  =a  y  +  i  - 

TEXTLINE  :=  TEXTLINE  +  1; 
end   Cif> 
else  begin 

if  TEXTLINE  <  ENDSCRDLL  then  begin 
TEXTLINE  :=  TEXTLINE  +  1; 
FILLSCREEN  (TEXTLINE  -  8) ; 
end   Cif  TEXTLINE<ENDSCR0LL3 
else  begin 

sound (300) ; del  ay (50) ; nosound;   CToo  far 

down] 
end;   (else} 
end;    Celse} 
end;    C#80  case} 
#77  :  {RIGHT  arrow  key} 

if  EXPANDFDUND  then  begin 
if  X  <  50  then 

X  :=  X  +  1 
else  begin 

sound (2030) ; delay (53) ; nosound;   CToo 

far  right; 
end;   -Celse} 
end;    Cif  EXPANDFDUND} 
#75  :  CLEFT  arrow  key} 

if  EXPANDFDUND  then  begin 
if  X  >  1  then 

X  :=  X  -  1 
else  begin 

sound ( 1200)  ; del  ay (50)  ; nosound ;  CToo 

far  left} 


lie 


end;   Ceise3 
end;    Celse3- 
#83  :  CDELETE  key} 

i-f  EXPANDFGUND  then  begin 
for  J  :=  X  to  49  do  begin 
W0RDPRQCCTEXTLINE,J3:= 

WORDPROC E TEXTLINE, J  +  l!  ; 
write<W0RDPRDCCTEXTLINE,J3) ; 
end;    Cfor3 

WORDFROCC TEXTLINE, 501  :=  chr (32) ; 
gotoxy (50, Y) ; 

write (WORDPROCCTEXTLINE, 501) ; 
end;   {if  EXPANDF0UND3- 
#73  :  {PG  UP  key 3 

begin 
i-f  (TEXTLINE-Y)  >  9  then 

TEXTLINE  :=  TEXTLINE  -  9 
else  begin 

sound (2800) ; del  ay (50) ; nosound;  (Too  far 

up  3- 
TEXTLINE  :=  1; 
Y  :=  1; 
end;   {else3- 

FILLSCREEN (TEXTLINE-Y+1) ; 
end;    C#73  easel 
#81  :  CPG  DN  key 3 

begin 

if  EXPANDFGUND  then  begin 
if  TEXTLINE  <  91  then 

TEXTLINE  :=  TEXTLINE  +  9 
else  begin 

sound (800) ; del  ay (50) ; nosound;  {Too  tar 

down] 
TEXTLINE  :=  100; 

Y  ==  9; 
end;   {else] 

end   Cif  EXPANDFGUND] 
else  begin 

if  (TEXTLINE  -  Y)  <  (ENDSCR0LL-1S)  then 

TEXTLINE  :=  TEXTLINE  +  9 
else  begin 

sound (800) ; delay (50) ; nosound;  {Too  far 

down} 
TEXTLINE  :=  ENDSCRQLL; 

Y  ;=    9; 
end;   {else] 

end;   {else} 

FILLSCREEN (TEXTLINE  -  Y  +  1); 
end;   {#31  case] 
#71  :  {HOME  kev3 

begin 

TEXTLINE  :  =  1; 

X  :=  1;  Y  :=  1; 

FILLSCREEN  (TEXTLINE); 
end;     C#71  case] 
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#79  :  CEND  key J 

i-f  EXPANDFOUND  then  begin 
TEXTLINE  :=  LASTLINE; 
if  LASTLINE  >  9  then  begin 

Y  :  =  9 ; 

FILLSCREEN (TEXTLINE  -  8); 
end   -Ci-f  LASTLINE>9} 
else  begin 

FILLSCREEN<1) ; 

Y  :=  LASTLINE; 
end;   {else} 

X  :=  50; 
end   {if  EXPANDFOUND} 
else  begin 

TEXTLINE  :=  ENDSCROLL; 
Y  :=  9; 

FILLSCREEN     (ENDSCROLL-S) ; 
end;        -Celse} 
end;        -Cease    CH    of} 
end;        C#27} 
end;         Cease    Chi    of  3- 

*  *  *  WORD  WRAP  PORTION  OF  THE  WORDPRDCESSING  ROUTINE  *  *  * 

*  At  the  end  of  the  line,  if  the  user  is  still  typing,     * 

*  this  section  causes  the  line  to  wrap  around  to  the  next  *■ 

*  line.  * 
******  #  ■*-  *  *•  #  *  *  #  *  *************  *  *  * 

if  (X  >  53)  and  (TEXTLINE  <  100)  and  EXPANDFOUND  then 
begin 

X  :=  50; 

if  WDRDPR0CCTEXTLINE,X2  <>  chr (32)  then  begin 
{test  last  char  in  line  for] 
Cbi  ank] 
while  wDRDPROCCTEXTLINE,Xj  <>  chr < 32)  do 
X  :=  X  -  1;  [reset  X  to  pos  of 

last  blank  2- 
for  M  :=  (X  +■  1)  to  50  do  begin 
WORDPROCCTEXTLINE+l ,M-XD  : = 
W0RDPR0CCTEXTLINE,M3; 

{move  the  char  to  correct  3 
gotoxy (M, Y) ;   {array  pos} 
WORDPROCCTEXTLINE,M3  :=  chr (32); 
write (W0RDPR0CCTEXTLINE,M3 > ;  Cerase  word  from 

and  of  line} 
if  Y  <  9  then  begin 
gotoxy(M-X,Y+l) ; 

write  (WORDPROCCTEXTLINE+I, M-X:i)  ; 
{write  word  at  front  of  new  line} 
end;  Cif} 
end;    if  or] 
X  :=  CM-X)  +1; 
end    Cif} 
el  se 

X  :=  1; 
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TEX7LINE  :=  TEXTLINE  +  1; 

if  Y  <  9  then 
Y  :=  Y  +  1 
else  begin 
Y  :=  3; 

FILL-SCREEN  (TEXTLINE  -  2); 
sound  (23230)  ;  del  ay  (50)  ;  nosound; 
sound (300) ;  delay (50)  ;  nosound? 
sound  < 1200) ; delay (50) ; nosound; 
sound (2000) ; del  ay (50) ; nosound; 
end;   (else} 
end   {if  3 
until  ENDRUN; 

(*  *  *  SAVE  FILE  PORTION  ****************** 

*  At  the  end  of  the  wordprocessing  session,  the  file  is    * 

*  saved  by  moving  all  text  lines  to  the  end  of  the  file    * 

*  so  they  can  be  readjusted  when  the  file  is  next  opened.  * 
******************************) 

if  USEDFILE  then  begin 
clrscr ; 

text col  or ( 15)  ;  text back ground (0) ; 
got ox y (11,5) ; 

writsC  SAVING  PROBLEM  EXPLANATION  '); 

EXPANDFILE  :=  concat (FILEDRIVE,  ':  '  , PROBNAME ,  .  zsx  )  ; 
assign  (WORKFILE, EXPANDFILE) ;  {open  CHATRFILE 

and  read  into  3- 
rewrite  (WORKFILE);     {save  the  array  to  disk} 
for  J  :=  1  to  50  do  begin 
for  K  :=  1  to  50  do 

TEMPARRAYCKU  :=  WORDPROCC J ,K3 ; 
TEMPLINECJj  :  =  TEMPARRAY; 
end;    Cfor  J  ;=  1  to  503 
for  J  :=  1  to  50  do  begin 

writeln  (WORKFILE, TEMPL I NEC J  3 >  ; 
end;    Cfor  J} 
close (WORKFILE) ; 
end;   £if  USEDFILE3- 

end;   {if  SCROLLFOUND  or  EXPANDF0UND3 

*  *  *  RETURN  TO  NORMAL  ROUTINE   ************** 

*  Clears  the  chatterbox  window  and  rewrites  the  screen     * 

*  portion  that  was  saved  wnen  cnatterbox  was  invoked.      * 

****************************** 


window  (XX,YY, (XX+55) , (YY+10) ) ; 

clrscr; 

window  (1,1,30,25); 

WR I TESCREEN  ( X  X , YY ) ; 


iwnte  previou! 
screen  back J 


end; 


{procedure  SCR0LLB0X3- 


<*******************#******************#***#***^^#*^*******) 


FILE 
WRITTEN  BY 
PURPOSE 


CONTENTS 


FILTER4.LIB   (26092) 
Mike  Nee  ley  ?<  Bob  WooldridgeT  May,  36 
Prccedure  library  for  TOUCHSTONE  (COOP 
Criteria  Filter  Program)  written  as  a  part 
of  a  thesis  for  a  Master  of  Science  in  , 
Computer  Systems  Management,  Naval 
Postgraduate  School,  Monterey,  California 

:  CHATRBOX 


(#******************#**************#******#*#**#**********#) 


PROCEDURE 
WRITTEN  BY 


PURPOSE 


PARAMETERS 


CHATRBOX 

Mike  Neeley  &  Bob  Wooldridge,  May, 36 

Word  processing  section  based  on  a  program 

by  Mark  Hayes 

Reads  from  a  text  file,  puts  text  into  a 

specified  window,  and  allows  scrolling 

within  that  window  for  previous  input; 

processing  for  the  new  input. 
:  drive  on  which  the  file  is 

located 
:  name  of  the  textfiie  called 
:  name/initials  of  the  user 
:  Character  designating 

cri teria/ai  tarnati ve  sel ection 


al lows  word 
FILEDRIVE 

PROBFILE 
PRESNAME 

ALTERNATIVE 


EXTERNAL 
NEEDS 


:  type 

STRINGS  =  stringC83 
STRINS3  =  stringt33 

ALTERNATIVE  :  stringClj; 
INCLUDE  file   : 
FILTER!- LIB, FILTER2- LIB, FILTERS. LIB 


procedure  CHATRBOX 

C (FILEDRIVE: char ; PROBFILE: STRINGS; PERSNAME: STRINGS) >; 


type 

WPARRAY  =  array C 1. . 125,1 

FILEARRAY  =  arrayC 1 . . 80  3 

DATASTRING  =  STRING £503; 
var 

SCREEN 
of  integer; 

ATTRIBUTE 
of  integer; 

ENDRUN,  USEDFILE,  NEWENTRYSEEN 

CHANGE ,  SCROLLONLY , 0KAY_T0_CHA1 

NEWFILE,  NEWLINE 

TEXTLINE,  X,  Y,  STOP 

LASTLINE,  ENDSCROLL,  CHECKLINE 

A,B,F,I,J,K,L,M 


.553  of  char; 
of  stringC553; 


arrav C 1 . . 25 , 1 . . 80 3 

arrayCl. .25,1.  .303 

bool ean; 
boolean; 
bool ean; 
integer; 
integer; 

integer;    [assorted 
counters} 


117 


CH,  TEMPCH1,  TEMPCH2,  USERCHECK 


char; 


ANONIMITY 

USERFILE 

USERNAME 

CHATRFILE,  SAVEFILE 

TEMPLINE 

BUFFERLINE 

TEMPNAME 

DATELINE, TEMP ARRAY 

NAME 

CHECKFILE.  TEXTFILE 

SAVELINE 

WGRDPROC 


char; 

stringC23; 
string C33 ; 

stringC 143 ; 

stringC553 ; 

stringC553 ; 

array    CI.. 33  of  char; 

array    lI..55j  of  char; 

array    CI.. 1253  of  stringC3J 

text; 

FILEARRAY; 

WPARRAY; 


function  WR I TEDATE (PERSNAME  :  STRINGS):  DATASTRING; 
(writes  the  date/time  on  a  line  at  the  bottom  of  an  entry} 

type 

REGISTERS  =  record 

AX,BX,CX,DX,3P,SI,DS,E5,FLAGS  :  integer 
end;    {record} 


var 
REGS 
STRDATE 
STRT I ME 
DA , MG , HR , MN 
YR 
I 


REGISTERS; 
stringC 123 
string £53 ; 
stringC23; 
stringC43 ; 
integer; 


begin   {function  WRITEDATE3- 
with  REGS  do  begin 
AX  :=  $2A00; 
msdos (REGS) ; 
str (CX,YR) ; 
str (lo(DX) ,DA) ; 
if  (lc(DX)  <  10)  then 

DA  ;=  concat <  '0J  ,DA)  ; 
str (hi (DX) ,M0) ; 
if  (hi (DX)  <  10)  then 
MO  :=  concat ( '0' ,MG) ; 
end;   {with  REGS3- 
with  REGS  dp  begin 
AX  :=  £2C00; 
msdos (REGS) ; 
str (hi (CX) ,HR) ; 
str (lo(CX) TMN) ; 
if  (lo(CX)  <  10)  then 
MN  :=  concat ( '0' ,MN) ; 
end; 
if  LENGTH  (PERSNAMEX 3  then 

for  I  :=  1  to  (3-LENGTH (PERSNAME) )  do 
PERSNAME  :=  concat (PERSNAME, '  '); 
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if  NEWLINE  then  begin 

WRITEDATE  :=  c  Dnc  at  (' *■**•*  '  ,PROBFILE,  '  FILE  BEGUN: 
• , MO , * / ' , DA , 
'  /  '  ,  YR ,  '  (§  ' , HR, ' : ' ,  MN ,  '  *•■*-*"*-**•*"*"**• ' )  ; 
NEWLINE  :=  false; 
end    Cif  NEWLINEJ 
el  5e 

WRITEDATE  :=  concatC'**  MESSAGE  ENDED: 
'  ,MG,  '/ '  ,DA,  ' / ' ,YR, 
@  ' , HR , ' : ' , MN , '  *-**■*  "  ,  PERSNAME ,   **■-**  )  ; 
end;   -C -function  WRITEDATE3 

procedure  FILLSCREEN  (STARTLINE  :  integer); 
{Sub-procedure  to  write  the  array    to  the  screen  starting 
at  the  line  number  sent  as  a  parameter 5 

begin   {procedure  FILLSCREEN J 
F  :=  3; 

for  J  :=  STARTLINE  to  (STARTLINE  +  6)  do  begin 
if  <WQRDPRGCCJ,23='*' )  and  (WORDPRQCC J , 431= ' * ' ) 

and  (W0RDPR0C:J,49j= '*  )  then  textbackground ( 1 ) 
else 

text background (4) ; 
for  K  :=  1  to  50  do  begin 
got  ox  v  CK,,F}  ; 
write<W0RDPR0CEJ,K3) ; 
end;   {for  K  :=  1  to  503 
F  :  =  F  +  1 ; 
end;   Cfor  J3- 
textbackground  <4) ; 
end;   {procedure  FILLSCREEND- 

procedure  SAVESCREEN <  X  ,  Y :  i nteger ) ; 

{Reads  the  screen  under  the  hei obex  into  an  array) 

begin   {procedure  SAVESCREEN} 
■far    A;=  Y  to  CY+10)  do  begin 
for  B  :=  X  to  <X+55)  do  begin 
SCREEN E A, B 1     := 
MemWC*BS00: ( ( <A-l>*160>+( (B-i)*2> ) j; 

attribute:a,b:   := 

MemWC$B800: ( ( (A-l>*160>+( (B-l ) *2> +1 ) 3 ; 
end;        £B> 

end;        [A3 
end;        iDrccedure    SAVE3CREEN3- 


procedure  WR I TESCREtN (X ,Y: integer ) ; 

{write  back  the  saved  portion  of  the  screen} 

begin   {procedure  WRITESCREENy 
for  A:  =  Y  to  (Y+10)  do  begin 
for  B  :=  X  to  (X+55)  do  begin 

MemWr*B8B0: ( ( (A-l ) *160) + ( (B-l ) *2) )  3  : = 

SCREEN  C  A ,  B 1 ; 
MemiAiC^8800:  (  (  (A-l)  *160)+(  (B-l)*2)+l)  1     i  = 
ATTRIBUTECA,B3; 
end;   {B3- 
end;   {A3 
end;   {procedure  WRITESCREEN3- 

begin   {procedure  CHATRB0X3- 

(*  *  *  SCREEN  SET-UP  PORTION  **************** 

*  Saves  the  protion  o-f  the  screen  under  the  chatterbox,    * 

*  and  initializes  the  color  and  size  of  the  chatterbox.    * 
******************************) 

SAVESCREEN(23, 12) ; 

textcol or (15) ;  textbackground  <4)  ; 

window ( 1 , 1 ,30,25) ; 

BASIC30X (23, 12,79,22) ;  {draw  CHATRBOX  window 

and  aetineJ 
textcoior (0) ; text background ( 15) ; 
gotoxy  (2S,12); 

write  ('  CHATTERBOX     CF-1  -for  help,  F-10  to  quit}  '); 
gotoxy  (25,22) ; 
write  ('USE:   ARROW  KEYS, HOME, END, PG  UP,PG 

DN , TAB , DEL , RETURN ' ) ; 
textcoior ( 15) ;  text background (4) ; 

window (24, 13, 77,21 ) ;     Cthe  parameters  of  the  text! 
clrscr;  {manipulation  area  and  clear  the] 

window (26, 13,76,21 ) ;     {screen  in  that  sector} 
gotoxy (40, 1 ) ; 
write  ( 'LINE  #: ' ) ; 

*  *  *  CHATTERBOX- I N-USE  CHECK  *************** 

*  Checks  to  see  if  chatterbox  is  in  use;  if  so,  puts  a     * 

*  message  on  the  screen  to  say  so.  * 
**********-*•*■****-*-**■*-********** 

NEWFILE  s=  false; 
CHATRFILE  := 

concat (FILEDRIVE, ':  r , PROBF I LE , ALTERNATIVE, '.zzw') ; 
assign (CHECKF I LE, CHATRFILE) ; 

£$1-3  {Turn  I/O  off,  check  for  the     J 

reset  (CHECKF  I  LE )  ;       {existence  of  the  chatrfile,  &   3- 
{-£1+3  {turn  the  I/O  back  on  3- 

if  IOresult  =  0  then  begin 

read (CHECKFILE,USERFILE) ; 

USERCHECK  :=  copy (USERFILE, 1 . 1 ) ; 

ANON I MI TY  :=  copy (USERFILE, 2, 1 ) ; 
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i-f  (USERCHECK  =  C)  then 

begin     {If  chatterbox  is  being  used,    3- 
QKAY_TO_CHAT  :  =  true;     Cthe  "zzw"  -file  will  contain 
an  3 

USERFILE  :=  concat (  "0 ' , ANONIMITY)  ; 

rewrite  (CHECKFILE)  ;   {"0"  -far    open;  otherwise,  it     3 
wri  te(CHECKF I LE,  USERFILE)  ;        {will  have  a  "C"  -For 

closed.      > 
end 
el  se 

0KAY_T0_CHAT  : =  false; 
end 
else  begin 

0KAY_T0_CHAT  :=  true; 
USERFILE  :=  concat (' 0 ', ANONIMITY) ; 
rewrite (CHECKFILE)  ; 
write (CHECKFILE, USERFILE)  ; 
NEWFILE  :=  true; 
end; 
close (CHECKFILE) ; 

*  *  *  FILE  SET-UP  PORTION  **-**■****•*■*■*■*•*!-**■-*■*■ 

*  Gets  and  sets  up  the  chatterbox  -file;  moves  all  info     * 

*  in  file  to  first  80  lines  and  clears  last  45  lines;      * 

*  no  information  before  the  last  30  lines  is  displayed  but* 

*  all  information  is  maintained  in  the  chatterbox  file.    * 

NEWLINE  :=  false; 

for  J  :=  1  to  55  do       CAt  the  beginning  of  the  pro-  3- 
for  K  :=  1  to  125  do    Cgram,the  wordprocessing  array! 
WORDPROCEK, J  3  :=  chr(32);  lis  initialized  to  all 

blanks  3 

SAVEFILE  := 

concat (FILEDRIVE,  ':  ' , PROBF I LE, ALTERNATIVE,  '  .zzz  ' ) ; 
assign  (TEXTFILE, SAVEFILE) ; {open  CHATRFILE  anc  read  into] 

{word  processing  arrav  > 

{$1-3  -CTurn  I/O  off,  check  for  the   3 

reset (TEXTFILE) ;  (existence  of  the  workfile,  2<  3 

{£1  +  3  {turn  the  I/O  back  on  3 

if  IOresult  =  0  then  begin 
I  :=  1; 

while  not  eof  (TEXTFILE)  do  begin 

readln (TEXTFILE) ;  £This  section  counts  the 

I  :  =  I  +  1;  (number  of  lines  in  the  text   3 

end;   -{while  not  eof  3-  -Cfile  and  uses  that  informa-   3 

I  :=  I  -  1;  ttion  to  put  the  correct  info  3 

if  I  >  80  then  begin  {into  the  array.        If  more  than! 

K  :=  I  -  80;  £80  lines  are    in  the  file,     3- 

M  :=  0;  {oniv  the  last  30  ars    put  into! 

reset  (TEXTFILE);  {chatterbox  for  review.         3 
for  J  :=  i  to  K  do 
readln (TEXTFILE) ; 
end   {if  I  >303 
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else  begin 
K  :=  1; 
M  :=  80-1; 
reset  (TEXTFILE); 
end; 
■for  L  :=  K  to  I  do 

readln  (TEXTFILE, SAVEL I NE C (L-K)  +  I  +  M3); 
•for  I  :=  (M+l)  to  80  do  begin 
BUFFERLINE  :=  SAVELINEEI3; 
-for  J  :=  1  to  55  do 

WORDPROC LI, J 3  :=  BUFFERL I  NE  E  J 3 5 
end;   {-for  I  :=  13 
end   {if  IOresult} 
else 

NEWLINE  :=  true; 
close  (TEXTFILE); 

*  *  *    LOCATE  PREVIOUS  FILES  #*-*-*-*•*-****-*■*-*•*** 

*  Locates  last  incident  of  user  name  and  starts  file       * 

*  review  at  that  point;  if  last  incident  is  after  line  77,* 

*  the  file  review  starts  at  line  S2.  * 
#***#**•«■•****#*#■*-*********-**•■***- 

for  J  :=  1  to  80  do 

for  I  :=  51  to  53  do  begin 

TEMPNAME E I -50 1    : =  WORDPROC E J , 1 3 ; 
NAMECJ3  :=  TEMPNAME; 
end; 
USERNAME  :=  PERSNAME; 

for  I  :=  1  to  3  do         {Change  username  to  all  caps   3 
if  USERNAMECI3  in  Ca'.-'z']  then 

USERNAMECI3  :=  chr (ord < USERNAME C I 1 >  -  32); 

i  f  LENGTH  <  USERNAME ) < 3  then 

for  I  :=  1  to  (3-LENGTH (USERNAME) )  do 
USERNAME  !=  concat (USERNAME, '  '); 
I  :=  30; 
if  not (NEWFILE)  then 

while  (I  >  1)  and  (NAMECI3  <>  USERNAME)  and  (NAME CI  3  <> 
'Z22')  do 

I  :=  I  -  1 
else  begin 

TEMPNAME  :=  'ZZZ';  CSet  up  "file  begin"  line: 

tor  J  :=  51  to  53  do 

WORDPROC  C3 1 , J  3  : =  TEMPNAME  C J -50 1 ; 
TEMPLINE  :=  WRITEDATE  ('*#*'); 
for  J  :=  2  to  49  do 

WORDPROC C Si, J  1     :=  TEMPLINECJ3; 
end;   CelseJ 
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*  *  *  INITIALIZATION   **•*****-*■**-*■*•«•*■-*-*•*** 

*  Initializes  all  the  necessary  valuables  needed  to  start  * 

*  the  word-processing/scroi iing  section  of  the  procedure.  * 
**-**-***-******.**#***-*■****•**##*-* 

if  I  >  76  then  begin 

SCROLLONLY  :=  true; 

FILLSCREEN  (76); 

TEXTLINE  :=  82; 
end   Cif  I>793 
else  begin 

SCROLLONLY  :=  -false;   {initialize  -flags  for  info  line! 

FILLSCREEN  (I);         (draw  initial  screen  3 

TEXTLINE  :=  I  +6; 
end;   {else3 
if  I  <>  80  then  begin    {indicates  on  the  screen  when  3 

textcolor (31 ) ;  textbackground (4)  ;   {there  are    new 

entries  not  yet} 

goto;<y  (25,  1 )  ;  -{seen/answered  by  the  user     3 

write  ('*NEW  ENTRIES*'); 

textcolor ( 15) ;  textbackground (4) ; 

NEWENTRYSEEN  :=  false; 
end   Cif  IO803- 
else  NEWENTRYSEEN  :=  true; 
CHANGE  :=  true; 

ENDSCROLL  :=  81;  {designate  last  line  of  scrolLJ 

{only  text  3 

X  :=  1;  Y:=  9;  {initialize  column,  row,  and       3 

LASTLINE  :=  81;  {last  line  of  text  } 

ENDRUN  :=  false;  -{initialize  the  flag  for  end   3 

USEDFILE  :=  false;       {of  run  ?<  the  "dirty  bit"  flag] 
CHECKLINE  :=  0; 

*  *  *  WORDPRDCESSING  ROUTINE   *-*■*•*■'*•*•*-.*•***  *  *  *  * 

*  A  simple  wordprocessor  which  allows  the  user  to  write    * 

*  messages  in  the  chatterbox.  * 
*#****♦#*#**#*******#***-****-*# 

repeat  {begin  wordprccessi ng  routine    s 

if  CHECKLINE  <>  TEXTLINE  then  begin 
got ox v  (49,1) ; 
write  ( '   ' ) ; 

gotoxy (48, 1 ) ;  {write  text  line  on  top  of       3 
write (TEXTLINE)  ;        {chatterbox  3 

CHECKLINE  :=  TEXTLINE; 
if  (TEXTLINE  <~    ENDSCROLL)  and 
(SCROLLONLY  =  false)  then 
CHANGE  :=  true; 
if  (TEXTLINE  >  ENDSCROLL)  and  (SCROLLONLY  =  true)  then 

CHANGE  :=  true; 
if  CHANGE  then  begin        [this  section  tests  for  a  3 
gotoxy  (i,i>;  {change  in  the  status 

if  SCROLLONLY  then 

begin  -{from  wordprocessi ng  to       3 


textcolor ( 1 ) ; 

tsxtbackqround  ( 12)  ;    Cscroll— only  and  changes  J- 
writa  (  'WuRDPROCESSING  SECTION'); 
£the  label  in  the  cht/box3 
SCRGLLGNLY  ;  =  false; 

if  NEWENTRYSEEN  =  -false  then  begin    -Cerases  NEW 

ENTRIES     y 
tsxtcolor  <  15)  ;  textbackgraund (4)  ;   -C-flag  an 

screen! 
gataxy  <25, 1 ) ; 
write  ( '  ' ) ; 

NEWENTRYSEEN  :  =  true; 
end;    Cif  NEWENTRYSEEN=true3- 
end   £if  SCRGLLGNLY!) 
else  begin 

text col  or (0) ;  text back ground  ( 10)  ; 
write  ( 'SCROLLING-ONLy'sECTION') ; 
SCRGLLGNLY  :=  true; 
end;   £else> 

text col  or ( 15) ;  text back ground (4) ; 
sound ( 1340) ; delay  < 100) ; nosound; 
CHANGE  :=  -false; 
end;   Cif  CHANGE: 
end;     Ci-f  CHECKLINE3- 
gotoxy (X,  Y) ; 
rsad     Ckhd,CH>; 
case  CH  o-f 

#32.. #126  :  (regular  characters} 

begin 

i-f  (TEXTLINE  >  ENDSCROLL)  and  GKAY_TO_CHAT  then 
begin 

USEDFILE  :=  true; 

if  WORDPROCCTEXTLINE,Xa  <>  chr <32)  then  begin 
TEMPCH1  :=  CH^ 
for  K  :=  X  to  50  do  begin 

TEMPCH2  :=  WGRDPR0CCTEXTLINE,K3 ; 
WGRDPRGCl  TEXTLINE,  Kill  :=  TEMPCH1; 
gctoxy <K, TEXTLINE) ; 
write (WGRDPRGCCTEXTLINE,K3) ; 
TEMPCH1  :=  TEMPCH2; 
end;   Cfor  K=X  to  50U 
end    {if  WORDPROC  <>  chr (32) 3 
else  begin 

WGRDPRGCCTEXTLINE,XJ  :  =  chi 
write  <ch) ; 
end;    -CeiseJ- 
X  :=  X  +  1; 

if  TEXTLINE  >  LASTLINE  then 
LASTLINE  :=  TEXTLINE; 
end;      Cif  TEXTFILE  >  ENDSCR0LL3 

if  (TEXTLINE  >  ENDSCRGLL)  and  not  (GKAY _TQ  .CHAT) 
then  begin 
cirscr ; 

textcoi  or (31) ;  tex tbackground (0) ; 
g ataxy (6,4) ; 
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write('  CHATTERBOX  IN  USE  -  Word  processing   '); 

got ox y (6,5) ; 

writei '      not  available  at  this  time.        '); 

gotoxy (6,6) ; 

write( '       Press  any  key  to  continue        '); 

textcoior ( 15) ;  textbackground (4) ; 

repeat  until  keypressed; 

gotoxy  (1,1); 

textcoior  CI ) ;  textbackground ( 12) ; 

write  < 'WGRDPROCESSING  SECTION'); 

text col  or (15) ;  text background (4) ; 

gotoxy  (4(3,  1)  ; 

write  ( 'LINE  #:  82 ' ) ; 

TEXTLINE  :=  32; 

Y  :=  9; 

FILLSCREEN  (TEXTLINE  -  6); 
end;    <.if     <TEXTLINE>ENDSCROLL)  3 
end;     {case  #32-#1263- 
#8:  {BACKSPACE} 

begin 

i -f  X  >  1  then  begin 
X  :=  X  -  1; 
gotoxy (X , V) ; 

■for  J  :=  X  to  49  do  begin; 
WORDPROC E TEXTLINE, J :  := 

WORDPROC C TEXTLINE, J+ll; 
write CW0RDPR0CETEXTLINE,J3) ; 
end;   Cfor> 
end;   Ci-f  X>1> 

WORDPROC C TEXTLINE, 50 1     :=  chr(32); 
gotoxy  (5iZJ,Y)  ; 

writsi WORDPROC C TEXTL I NE , 50 3 )  ; 
end;   Cease  #83 
#9  :  CTA3  key  3- 

begin 

X  :=  30; 
end;   Cease  #93 
#13:  ^RETURN  key 3 

begin 

if  Y  <  9  then  begin 

Y  :  =  Y  +  1 ; 

X  :=  1; 

TEXTLINE  :=  TEXTLINE  +  1; 
end   Cif  Y<93 
else  begin 

if  TEXTLINE  <  123  then  begin 
TEXTLINE  :=  TEXTLINE  +  1; 
FILLSCREEN (TEXTLINE  -  6); 
X  :=  1; 
end   {if  TEXTLINE  <1233 
else 

sound  (803)  ;  delay  (50)  ;  nosound;   CToo  f  ^r    down} 
end;   -Celse3- 

if  TEXTLINE  >  LASTLINE  then 
LASTLINE  :=  TEXTLINE; 


end;     C#13  case} 
#27:  {ESCAPE  key} 

begin 

read  (  kbd  nCi-\)  ; 
case  CH  of 
#59  : 

begin  CF-1  key  -for  help} 

SCROLLBOX (8,4,53, 'B')  ; 
textcolor  ( 15) ;  textbackground (4) ; 
window (26, 13, 76,21 ) ; 
CNOTE:   after  scroll  box  is  called,  color  and 
window  must  be  reinitialised  by  the 
originating  program} 
end; 
#61  : 
begin 

SCROLLBOX  (4,4,5(3,  'A')  ; 
text col  or (15) ;  text background (4) ; 
window (26, 13,76,21 ) ; 
CNOTE:   after  scroll  box  is  called,  color  and 
window  must  be  reinitialized  by  the 
originating  program} 
end; 
#63  :  ENDRUN  :=  true;        £Key  F-10  to  quit  } 
#72  :  CUP  arrow  key} 

begin 

if  Y  >  3  then  begin 

Y  :=  Y  -  1; 

TEXTLINE  :=  TEXTLINE  -  1; 
end   Cif  Y>13 
else  begin 

if  TEXTLINE  >  1  then  begin 
TEXTLINE  :=  TEXTLINE  -  1; 
FILLSCREEN  (TEXTLINE) ; 
end    iif  TEXTLINE>1} 
el  se 

sound (2800) ; del  ay (50) ; 
nosound;   CToo  far  up-- 
end;  Ceise} 
end;   £#72  case} 
#S0  :  -CDOWN  arrow  key} 

begin 

if  Y  <  9  then  begin 

Y  :=  Y  +  1; 

TEXTLINE  :=  TEXTLINE  +  1; 
end   -Cif} 
else  begin 

ii    TEXTLINE  <  123  then  begin 
TEXTLINE  :=  TEXTLINE  +  1; 
FILLSCREEN  (TEXTLINE  -  6); 
end   Cif  TEXTLINE< 123} 
el  se 

sound (800)  ; del  ay (50) ; 
nosound;  CToo  far  down} 
end;   [ei  se} 
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if  TEXTLINE  >  LASTLINE  then 
LASTLINE  :=  TEXTLINE; 
end;     -C#80  case} 
#77  :  CRIGHT  arrow  key J 

begin 

i  -f  X  <  513  then  begin 

X  :=  X  +  1; 
end    Cifl 
else 

sound (2000) ; delay (50)  ; 
nosound;  CToo  far  right  J 
end;   C#77  case} 
#75  :  •CLEFT  arrow  key} 

begin 

if  X  >  1  then  begin 

X  :=  X  -  1; 
end   tifl 
else 

sound (1200) ; del  ay (50)  ; 
nosound;  -CToo  far  left 2 
end;   C#75  easel 
#83  :  C DELETE  key 1 

begin 

if  TEXTLINE  >  ENDSCROLL  then  begin 
for  J    :=  X  to  49  ao  begin 
WORDPROCC TEXTLINE. J 1    ;= 

WORDPROCC TEXTLINE,  J-i-1 1 ; 
write (WORDPROCC TEXTLINE, J 3) ; 
end;    {for} 

WORDPROCC TEXTLINE, 501  :=  chr (32) ; 
gotoxy (50, Y) ; 

write (WORDPROCC TEXTLINE, 50 1)  ; 
end;    Cif  TEXTLINE>ENDSCRGLL1 
and;   C#83  easel 
#73  :  CFG  UP  key! 

begin 

if  TEXTLINE  >  7  then 

TEXTLINE  :=  TEXTLINE  -  7 
else  begin 

sound (2800) ; del  ay (50)  ; 
nosound;  CToo  far  up  3- 
TEXTLINE  :=  1; 
Y  :=  3; 
and;   Celse} 

FILL-SCREEN  (TEXTLINE  -  Y  +  3); 
end;   C#73  easel 
#81  :  CPG  DN    key? 

begin 

ii    USEDFILE  or  NEWENTRYSEEN  then 

STDP  :=  123  else  STOP  :=  82; 
if  TEXTLINE  <  (STQP-7)  then 

TEXTLINE  :=  TEXTLINE  +  7 
else  begin 
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i-f  STOP  =  123  then  begin 
sound (S00) ; del  ay (50)  ; 
nosound;  CToo  far  down} 
end;   Ci-f  5T0P=1233 
TEXTLINE  :=  STOP; 
Y  :=  9; 
end;   {else} 

FILLSCREEN (TEXTLINE  -  Y  +■  3)  ; 
end;    L#Bi  case} 
#71  :  {HOME  key 3 

begin 

TEXTLINE  :=  1; 

Y  :=  3; 

FILLSCREEN  (TEXTLINE); 
end;    {#71  case} 
#79  :  {END  key} 

begin 

if  USEDFILE  then 

TEXTLINE  :=  LASTLINE 
el  se 

TEXTLINE  :=  82; 

Y  :=  9; 

FILLSCREEN  (TEXTLINE  -  6); 
end;    {#79  case} 
end;   Cease  CH3 
end;   {#273- 
end;   Cease  Chi    a-fZ- 

*  *  *  WORD  WRAP  PORTION  OF  THE  WORDPROCESSING  ROUTINE  *  *  * 

*  At  the  end  of  the  line,  if  the  user  is  still  typing,     * 

*  this  section  causes  the  line  to  wrap  around  to  the  next  * 

*  line,  * 
******#****  +  ■*#****#*********** 

if  (X  >  50)  and  (TEXTLINE  <  123)  ana  (TEXTLINE  >  31) 
then  begin 
X  :=  50; 

if  W0RDPR0CCTEXTLINE,X3  <>  chr (32)  then  begin 
[test  last  char  in  line  for     3- 
{blank  3 

while  WORDPROC C TEXTLINE, X j  <>  chr (32;  do  begin 

X  :=  X  -  1;   (reset  X  to  pos  of  last  blank   } 
end;   {while} 
for  M  i-     (X  +  1)  to  50  do  begin 

W0RDPR0CLTEXTLINE+1 ,M-X3  ;=  W0RDPR0CCTEXTLINE,M3; 

{move  the  char  to  correct  3- 
gotoxy(M,Y);   {array  pos  } 

WCRDPR0CCTEXTLINE,M3  :=  chr (32); 
writedAiORDPRQCE: TEXTLINE, Mil)  ;  {erase  word  from  end 

of  line} 
it  Y  <  9  then  begin 
got  ok  y  ( M—X  ,  Y+ 1 )  ; 
write <W0RDPR0CCTEXTLINE+1 ,M-X3) ; 

{write  word  at  front  of  new  line} 
end;  {if} 
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end; 

{for 

J 

V        .   — 

(M 

-X) 

+  1 

n 

end 

Ci-f 

J* 

si  se 

V     .  — 

A         «   — 

1  ■ 

7EXTLINE  :=  TEXTLINE  +  1; 
if  Y  <  9  then 

Y  s=  Y  +  1 

else  begin 

V  •  =  4.- 

FILLSCREEN  (TEXTLINE  -  1); 
sound (2S00) ; del  ay (50) ; nosound; 
sound (800) ; del  ay (50) ; nosound; 
sound ( 1200) ; delay (50) ; nosound; 
sound (2000) ; del  ay (50) ; nosound; 
end;   {else} 
end   {if} 
until  ENDRUN; 

*  *  *  SAVE  FILE  PORTION  #*#*#*#*****#**#** 

*  At  the  end  of  the  wcrdprocsssinq  session,  the  file  is    * 

*  saved  by  moving  all  text  lines  to  the  end  of  the  file    * 

*  so  they  can  be  readjusted  when  the  file  is  next  opened.  * 

*  A  date/time/signature  line  is  added  at  the  end  of  each   * 

*  session  to  identify  it.  * 
************************  *#*#**#*-* 

if  USEDFILE  or  NEWFILE  then  begin 
clrscr ; 

text col  or ( 15) ;  text background (0)  ; 
got ax y (13,5) ; 

writeC  SAVING  CHATTERBOX  FILE  '); 
if  USEDFILE  then  begin 

LASTLINE  ;  =  LASTLINE  +  2;  [make  room  for 

date/time  line    j- 
for  I  ;=  1  to  3  do  {save  user  name  in 

hidden  file   } 
WORDPROC: (LASTLINE) , (1+50) I  :=  ccpv (USERNAME, I , 1 > ; 
if  ANONIMITY  =  'A'  then 

TEMPLINE  :=  WR I TEDATE ('***#' ) 
el  se 

TEMPLINE  :=  WRI TEDATE (USERNAME) ;  {get  date/time  line 

for  file* 
for  J  :-    2  to  49  do 

DATELINElJI  ;=  copy (TEMPLINE, J, 1) ; 
for  J  :=  2  to  49  do 

WORDPROC  C (LASTLINE)  ,JD  :=  (DATELINEC J I ) ; 
end;   {if  USEDFILE  and  not  NEWFILE} 

SAVEFILE  := 

concat (FILEDRIVE,  ':  ' ,PROBFILE, ALTERNATIVE,  ".zzz  ') ; 
assign  (TEXTFILE, SAVEFILE) ;  Copen  SAVEFILE  and 
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if  NEWFILE  then 

rewrite  (TEXTFILE) 
else  begin 

append  (TEXTFILE); 

if  IOresult  <>  E  then 
rewrite (TEXTFILE) 5 
end;    Cel seJ 
tor  J  :=  81  to  LASTLINE  do  begin 

■for  K  :  =  i  to  55  do 

TEMPARRAYCKU  :  =  WORDPROCt J ,KH ; 

SAVELINECJ-80:  :=  TEMPARRAY; 
end;   {-for  J  :=  Si  to  LASTLINE3- 
for  J  :=  81  to  LASTLINE  do  begin 

writeln  (TEXTFILE, SAVELINEC J-803 >  ; 
end;   Cfor  J} 
close (TEXTFILE)  ; 

*  *  *  USER  FILE  UPDATE  ****************** 

*  This  section  updates  the  file  containing  the  name  of     * 

*  the  last  user  of  the  chatterbox,  * 
****************************** 

CHATRFILE  := 

concat (FILEDRIVE,  :  ' ,PROBF I LE, ALTERNATIVE,  "  . zzq  ) ; 
assign (CHECKF ILE, CHATRFILE) ; 
r  e wr  i  t  e ( CHECKF I  LE )  ; 
write (CHECKF I LE,PERSNAME) ; 
close (CHECKF I LE) ; 
end;    Cif  USEDFILE3- 

*  *  *  IN-USE  FLAG  UPDATE   ***************** 

*  This  section  updates  the  file  indicating  that  the        * 

*  chatterbox  file  is  available  for  use,  * 
****************************** 

if  DKAY_TD_CHAT  then  begin 

CHATRFILE  := 
concat (FILEDRIVE, ': ' , PRDBF I LE, ALTERNATIVE, '.zzw') ; 

assign (CHECKF I LE, CHATRFILE) ; 

USERFILE  :=  concat (' C ' ,ANONIMITY) ; 

rewrite (CHECKF ILE)  ; 

wr  i  t e ( CHECKF I LE , USERF ILE); 

:lQ58 (CHECKF ILE)  ; 
end;    Cif  OKAY  TO  CHAT} 
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*  *  *  RETURN  TO  NORMAL  ROUTINE   ************** 

*  01  ear 5  the  chatterbox  window  and  rewrites  the  screen     * 

*  portion  that  was  saved  when  chatterbox  was  invoked.       * 
****************************** 

window  (23,12,73,22); 

clrscr ; 

window  (1,1,80,25); 

WRITEBCREEN  (23,12.-3    Cwrite  previous  screen  back! 
end;     CproceGure  CHATRBOXj 
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■CFILTERo.  LIB} 


procedure  MewNumber ivar    Names 
Integer ) ; 


Cr it Array;   Limmit 


( ^^^**^***^^*^*^*^*^^^**^**^*^^^#**^*^*******^**^*****^**^^J^ 


NEWNUMBER  * 

CTOUCH.PAS  * 

FLAG 1 RENUMBER,  FLAG2RENUMBER,  * 
FLAG3RENUMBER  * 

TRACK 1,  LIMMIT,  NAMES,  L,  M,  N,  * 
PROBLEMFLAG  # 

CRITARRAY  * 

KRITERIAFILE  * 

NONE  * 

NONE  * 

LOADARRAY,  NEWWRITE,  CHANGERECCRD  * 
.RENUMBERS  EVERYTHING  IN  THE  EVENT  * 
THAT  A  RECORD  HAS  BEEN  DELETED  OR  * 
IF  THE  USER  IS  AT  THE  POINT  WHERE  * 
HIS  FILE  HAS  BEEN  MERGED  WITH  * 
OTHER  COMMITTEE  MEMBERS  * 


* 

* 
* 
* 
* 
# 
* 
* 
* 

* 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIAELES 

GLOBAL  VARIABLES 

ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 
EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


<sar 


FLAG 1 RENUMBER,  FLAG2RENUMBER,  FLAG3RENUMBER 

begin    {NewNumber} 

reset  (  kr i  ter i  af  i 1 e>  ; 

if  f  ilesize  (kriteriaf  ile)  >  3  then 


INTEGER; 


aeqm 


.it  +i  I  esize. 


i racxl 


=  i 


FlaqiKeNumber  :=  3; 


repeat 

NamesCTracki 1 . StatFIag  : =  problemFiag; 

case  names  C  Trac  k  1 1 .  -flag!  of 

1..130   :   begin    C  Inside  case  flag 12 

if  names C Track!  3  .  f  Iag2  —  3 
then 
begi  n 
{Renumbering  of  Major  Criteria} 
FlaglReNumber  := 

FlaqiReNuffiber  +  1; 
names L Track! 1 . f lag!  := 

FI aglReNumber; 
Flag2ReNumber  :=  3: 
Fiag3ReNumber  :=  3; 


end;     {Renumbering  of 
Major  Criteria] 


1..10Q   :   begin    CInside  case  flag23 

if  namesCTrack  1  ]  .  f  Iag-3  =  2) 
then 
begin    {Renumbering  of 
Sub  Criteria] 
Flag2ReNumber  := 

Flag2ReNumber  +  1; 
namesCTrackl 1 . f lagl  : 

FlaglReNumber ; 
namesCTrackl 1 . f 1 ag2  : 
Fl ag2ReNumber ; 
end;     {Renumbering  of 
Sub  Criteria} 

case  namesCTrackl j . flag3  of 

1..123   :   begin    -CInside  case  flag3> 
Flag3ReNumber  := 

Flag3ReNumber  +  1; 
namesCTrackl 1 . f lagl  ;= 

Fl ag 1 ReNumber ; 
namesCTrackl j . fl ag2  := 

Fl  ag2ReiMumber ; 
namesCTrackl 1. flag3  := 

Fl ag3ReNumber ; 
end;      -CInside  case  flag33 

end;  Cease  statement  flag3H 

end;  CInside  case  flag23 

end;  Cease  statement  flag23 

end;  -CInside  case  flagll- 

end;  -Cease  statement  flag  13- 

1  :  =  NamesCTrackl}. Flagl  *  1(30; 

m  :=  Names C Track  1 1. FIag2  *  IS; 

n  :=  NamesCTrack 1  J , Fi ag3; 

NamesCTrack 1 3 . CheckPoi nt  :=  1  +  m  +  n; 

Track  1  :=  Track  1  +  1; 


until     Track  1    =    Limmit; 
end;  Cif    filesizej 

close  (  kri  ten  af  1 1  e)  ; 
end;  -CNewNumber  j- 


procedure  Switch (Var  STUi ,  S7U2   :  CriRec); 


var 


TEMPSTU 


Crireai 


begin 


Switch  3 


Tempstu  :=  Stui; 

Stu2  :=  Tempstu; 
end;      -CSwitch} 


Stul  :=  Stu2; 


procedure  CritSort (var  Names  :  CritArray;   limmit  : 
integer) ; 


* 
* 

* 

* 
# 

* 

* 

* 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 
GLOBAL  VARIABLES 
ARRAYS  USED 
FIi_ES  ACCESSED 
EXTERNAL  CALLS 
EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


■it-****-*********--*--*-*-****-* 


CRITSGRT  * 

CTOUCH.PAS,  FLAGSET.PAS  * 

NOEXCHANGES,  FURST,  PASS,  LI MID    * 
LIMMIT,  NAMES  * 

CRITARRAY  * 

NONE  * 

SWITCH  * 

NONE  * 

ALLTOGETHER,  LOAD ARRAY ,  NEWWRITE  * 
THIS  PROCEDURE  DOES  A  NUMERIC  SORT* 
THAT  KEEPS  ALL  MAJOR  CRITERIA  AND  * 
SUBSETS  OF  EACH  MAJOR  CRITERIA  * 
TOGETHER.  THE  SORT  IS  MADE  ON  THE* 
CHECKPOINT  PORTION  OF  THE  RECORD  * 
'CRIREC.  * 


var 


NOEXCHANGES 

FURST,  PASS,  LIMID 


BOOLEAN; 
INTEGER; 


degin 


CCri  t  Sort  3- 


limid  :=  limmit  -  i;   Pass  :=  1; 
if  limid  >  1  then 
begin 

repeat 

Noexchanges  :=  True; 

■for  Furst  :=  1  to  iimid  -  Pass  do 

if  < Names C Furst 3 . checkpoint  >  NamesCFurst  + 
1 1 . checkpoi nt )  then 

begin    {Exchange} 

Swi tch (NamesCFurst 1 ,     NamesCFurst  +  i3>; 
Noexchanges  :=  False; 


i-_.4 


end;      CEx change 3 
Pass  :=  Pass  +  1: 


end? 


until  Noe;:  changes; 
end; 

CCritSort]- 


procedure  Bubbi eSort ( var  Names  :  CritArray; 

Limmit  :  inteqer); 


(********##*************************#*********************** 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 
GLOBAL  VARIABLES 
ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 
EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


* 
* 
* 

* 

* 
* 

# 

* 


BUBBLESORT  * 

CTOUCH.PAS,  FLAGSET.PAS  * 

NOEXCHANGES,  FURST,  PASS,  LIMID  * 

LIMMIT,  NAMES  * 

CRITARRAY  * 

NONE  * 

SWITCH  * 

NONE  * 

ALLTOGETHER  * 
THIS  PROCEDURE  DOES  AN  ALPHA  SORT  * 

THAT  FLAGS  ALL  DUPLICATE  MAJOR  * 

CRITERIA  BY  PLACING  A  3  IN  THE  * 

FLAG I  PORTION  FO  THE  RECORD  * 

'CRIREC  * 


va.r 

NOEXCHANGES  :   BOOLEAN; 

FURST,  PASS,  LIMID  z        INTEGER; 

begin    iBubbi  eSortJ- 

11 mid  :=  limmit  —  i;   Pass  :=  1; 

if  lirnid  >  1  then 

begin 
repeat 

Noexchanges  :=  True; 

far  Furst  :=  i  to  Li mid  -  Pass  do 

if  < Names C Furst  1 .  Crz.  tname  > 

NamesCFurst  +  lj.cri tname)  then 
begin    CEx change] 

Switch (NamesCFurst] ,  NamesCFurst  +  13); 
Noex changes  :=  False; 
end;      CE>:  change]- 

Pass  : =  Pass  +  1 ; 


antxl     ivosxcnangss 


end; 
end;      CBubbl eSortj 

procedure  Odometer; 


<#**************^******#*********************************^** 


ODOMETER  * 

CTOUCH  * 

NONE  * 

ALTERNATIVE,  PROBLEMFLAG  * 

NONE  * 

NONE  * 

NONE  * 

NONE  * 

LOADARRAY,  INITVARI ABLE3 ,  WINDGW3  * 

THIS  PROCEDURE  WRITES  TO  THE  * 

BGTTGM  OF  THE  SCREEN  TELLING  THE  * 

USER  AT  WHAT  STAGE  HE  IS  IN.  * 


-a- 

# 

* 
* 

* 

* 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 
GLOBAL  VARIABLES 
ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 
EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


begin    COdometsrJ 

ptl  :=  is   pt2  :=  1;   pt-3  ;=  7S;   pt4  :=  25; 
winaow (ptl  7pt2, pt3.pt 4) ; 
texthackgraund (red) ; 

case  ProblemFiag  of 

'a'  :   i -f  alternative  =  'A'  then 
begin 

qotoXY ( 16,24) ;   write*'  Input   ) 
end 

el  5E 

begi  n 

gotoXYC2,24)  ;   writeC  Major  '}; 


i -f  alternative  =  'C'  then 
begin 

gotoXY(9,24) ; 

writeC  Sub  Criteria  '); 
end; 

i-f  alternative  =  'C'  then 
begi  n 

gotoXY (23,24) ; 

write ('  Tertiary  Criteria  '); 
end; 

if  alternative  =  'A'  then 
begi  n 

gotoXY(  16,24)  ;   writeC  Input  '); 
got  oXY  (32,24)  ;   writeC  Holding  '); 
end 
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else 

begin 

gotoXY (2,24) ;    writeC  Major  ') 
gotoXY (49,24) ;   write?'  Holding 

end; 

i-f  alternative  =  'A'  then 
begi  n 

gotoXY ( 16,24) ;   write( '  Input  ') 
gotoXY(42,24) ; 

write( '  Review  Alternatives  '); 
end 
el  se 

begin 

~gotoXY(2,24)  ;    writeC  Major  ') 
gotoXY (58,24) ; 
write('  Review  Criteria  '); 
end; 


if  alternative  =  rA'  then 
begin 

gotoXY(16,24) ; 

gotoXY (24,24) ; 
end 
el  se 

begin 

gotoXY (2,24) ; 

gotoXY(42,24) ; 
end; 


write ( '  Input  ' ) 
wri te ( '  Final  ' ) 


write ( '  Major  ' ) 
write ( '  Final  ' ) 


i-f  alternative  =  'C'  then 
begin 

gotoXY(9,24>  ; 

wnte<  '  Sub  Criteria  '); 

gotoXY(49,24)  ;   writeC  Holding 
end; 


)  ; 


1  '  :   if  alternative  =  'C'  then 
begin 

gotoXY(9,24)  ; 

write('  Sub  Criteria  '); 

gotoXY(58,24>  ; 

writeC  Review  Criteria  '); 
end; 

m'     :   i-f  alternative  =  'C'  then 
begin 

gotoXY(9,24) ; 

write('  Sub  Criteria  '); 

gotoXY(42,24)  ;   writeC  Final  ') 
end; 

n'  :   if  alternative  =  'C'  then 
begin 

~gotoXY(23,24)  ; 


i_.  / 


write('  Tertiary  Criteria  '); 
gctoXY (49,24) ;   writeC  Holding  '  ) -, 
end; 

'g'  :   if  alternative  =  'C*  then 
begi  n 

gotoXY<23,24> ; 

write( '  Tertiary  Criteria  '); 

gotoXY(53,24> ; 

write('  Review  Criteria  '); 
end; 

'p  '  :   if  alternative  =  'C'  then 
begi  n 

gotoXY(23,24>  ; 

write( '  Tertiary  Criteria  '); 

gotoXY<42,24>  ;   writeC  Final  '); 
end; 

'2  '  :   if  alternative  =  'A'  then 
begin 

textbackground (blue) ; 

gotoXY(2,24) ;   clreol; 

gotoXY<31,24) ; 

textbackground  ired) ; 

write(  '  Input  Completed  '); 
end 
el  se 

begin 

gotoXY(42,24)  ;   writeC  Final  '); 

gotoXY(58,24)  ; 

writsC  Completed         '); 
end; 

end;     {Case  Statement} 

textbackgraund (bl ue) ; 

ptl  :=  2;   pt2  :=  2;   pt3  :=  77;   pt4  :=  21; 

window  <pti,pt2,pt3,pt4) ; 

end j      CQdometer} 


133 


(**********************************************************; 

FILE         :  FILTER7.LIB   (     ) 

WRITTEN  SY  :  Hike  Neeley  ?<  Bob  Wooldridge,  May, 86 

PURPOSE     :  Procedure  library    for  TOUCHSTONE  (COOP 

Criteria  Filter  Program)  written  as  a  part 
of  a  thesis  -for  a  Master  o-f  Science  in 
Computer  Systems  Management,  Naval 
Postgraduate  School,  Monterey,  California 

CONTENTS    :  ENCODE,  DECODE,  INTROSCREEN 
CHANGESTATUS,  CHANGECODE 

( ********************************************************** ) 

PROCEDURE  :  ENCODE 

WRITTEN  BY  :  Mike  Neeley  S<  Bob  Wooldridge,  May, 36 

PURPOSE  :  Encodes  user  name  and  user  ID  for  -filing 

PARAMETERS  s  input:  NAMECODE  z     array C 1 .. 33  o+  nhar; 

EXTERNAL 

NEEDS  :  none 

( ********************************************************** > 
-function  ENCODE  (NAMECODE  :  CODEARRAY)  :  CODEARRAY; 

var 

TEMPCODE        :  array  CI  ...12  3  o-f  char; 
I  :  integer; 

begin 

-for  I  :=  I  to  12  do  begin  -Cchange  input  to  ail 

caps  and] 
if  NAMECODE l I  3  in  C  '  a  '  .  .  '  s  '  3  then    Cdelete  non- 

lettersl- 
NAMECODE EI  3  ;=  chr (ord (NAMECODE CI 3 >  -  32); 
i-f  not  (NAMECODECIj  in  C  '  A  '  .  .  '  Z  '  ,  '  *  '  3  >  then 
NAMEC0DEEI3  :=  chr <32); 
end;   [for  13- 

■Cencode  all  charters  into  cads! 
-for  I  :=  1  to  12  do 

TEMPCODE C  I  3  :=  c.nr  •  ord  (NAMECODEE  I  3  )  +  (97+1)); 

ENCODE  :=  TEMPCODE; 
^ndz  [procedure  ENCODE! 


(**********************************************************) 
PROCEDURE   :  DECODE 

WRITTEN  BY  :  Mike  Neeley  Se  Bob  Wooldridge,  May, 36 
PURPOSE     :  Decodes  user  name  and  user  ID  -from  -file 
PARAMETERS  :  input;  NAMECODE  :     zrravL  1..31    c-f  c~an 
EXTERNAL 
NEEDS       :  none 

( ************************************************************** ) 
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function  DECODE (NAMECODE  :  CQDEARRAY)  :  CODEARRAY; 

va.r 

TEMPCODE  s  array C i, . 123  of  char; 
I  :  integer; 

begi  n 

[decode  all  charf-srs    tram  code3- 
far  I  :=  1  to  12  do 

TEMPC0DEEI3  s=  chr (ard (NAMECODEL I  3 >  -  €97+1)) 

DECODE  :=  TEMPCODE; 
end;     [procedure  DECODED- 


PROCEDURE  :  INTROSCREEN 

WRITTEN  BY  :  Mike  Neeiey  &  Sab  Wooidridge,  May, 36 

PURPOSE  :  Draws  the  box  for  the  various  introductory 

and  menu  screens 

PARAMETERS  :  none 
EXTERNAL 

NEEDS  :  Include  file  FILTER1-LIB 

procedure  INTROSCREEN; 

begin   [procedure  INTR0SCREEN3 

text back ground (blue) ;  text col or (white) ; 

window  (1 ,  1 ,825,25)  ; 

clrscr ; 

BASIC30X (5,3,75,22) ; 

gotox  y  ( 3(3 , 3)  ; 

textbackground irad) ;  textcol or ( yel I ow) ; 

write  ( '       TOUCHSTONE       ' ) ; 

textbackground (blue) ;  textcol or (whi te) ; 

window (12,5, 73,20) ; 

ptl  s=  12;  pt2  :=  5;  pt3  :=  73?  pt4  :=  23; 
end? 

(***********•****************#***##**************** 


PROCEDURE 
WRITTEN  BY 
PURPOSE 


CHAN6ESTATUS 

Mike  Neeiey  &  Bob  Wool dr idee.  May, 86 
Change  the  -status  of  invocators/cammi ttee 
rnemoers  and  add/delete  persons:  change 
problem  invocator  password 

PARAMETERS  :  none 

EXTERNAL 

NEEDS       :  none 
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procedure  CHANGESTATUS: 


var 

NAME_DK,  IOCHECK, 

CONTINUE,  CHANGE 

X,  COUNTER,  K,  L, 

LASTLINE 

CH 

WORKFILE 

NAMESTRING 

CHECKFILE 

MASTER 

CHECKNAME 

CHECKCODE 

CODEMASTER 

CODENAME 

CODEWORD 

5AVELINE 

TEMPLINE 


boolean; 


integer; 

char; 

text; 

stringC33 ; 

stringC 143 ; 

stringC173 ; 

array  CI. .33 

of 

char; 

array    C 1 . . 83 

of 

char; 

arrayC 1 . . 353 

of 

char; 

array C 1 . . 853 

of 

stringC33 ; 

arrayC 1 . . S53 

of 

stringE83 ; 

arrayC 1 . . B53 

of 

stringC 123 ; 

CODEARRAY; 

procedure  HELPKEY; 

Couts  up  hslpscreen  if  called] 


var 
X,  Y 


integer; 


begin 

read<kbd,CH) ; 
case  CH  of 

#59   :   begin    {  Fl  } 

X  :=  wherex ;  Y  :=  whereY; 
Scroll  Box ( 12, S,HELPSIZE, HELPER) ; 
window  I'ptl,pt2,pt3,pt4>  ; 

textcol or \ white) ;  textbackground (blue) ; 
got ox y (X , Y) ; 
end;     {  Fi  } 
end;   CCH] 
end;    [procedure  Cril 

procedure  GETANB; 

{solicits  an  answer  from  the  user) 

begin 
repeat 

read (kbd,CH) ; 

if  CH  =  #27  then 

HELPKEY; 
if  CH  in  C'a'..'z'3  then 
CH  :=  chr (ord(CH)-32) ; 
until  CH  in  C'A*..*Z*,'  ',#133; 
end;    ^procedure  GETANS3 
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procedure  GETANSWER  (A,B,C,D  :  char); 
{solicits  an  answer  -from  the  user  3- 

begin 
repeat 

read (kbd ,  CH) ; 

if  CH  =  #27  then 

HELPKEY; 
if  CH  in  CA,B3  then 

CH  :=  chr (ord(CH)-32> ; 
until  CH  in  CC,D3; 
write  (CH);  del  ay (500); 
end;    {procedure  GETANSWER3- 

procedure  CLEARLINEB; 
{clears  lines  14  2<  153 

begin 

gotoxy  (1,14);  clreol; 

gotoxy  (1,15);  clreol; 
end;    {procedure  CLEARLINES3 


begin   {procedure  CHANGESTATUS3 

{put  information  on  screen} 
INTRQSCREEN; 

if  SELECTED  =  1  then  begin 
gotoxy  < 13,2) ; 

write  ('INVOCATOR  MASTER  CODEWORD  CHANGE'); 
CONTINUE  :=  true; 
end   {if  SELECTED  =  33- 
el se  begin 

gotoxy (14,2) ; 

write  ('INVOCATOR  MASTER  STATUS  CHANGE'); 

gotoxy  <4 , 4) ; 

write  ('This  section  of  the  program  will  allow  you  to 

add ,  ' ) ; 
gotoxy (4,5) ; 
^rite  ('delete,  or  change  the  status  of  any  person  you 

wish. ' ) ; 
gotoxy (4,7) ; 
write  (Please  enter  the  initials  of  the  individual 

you  want ' ) ; 
gotoxy (4,8) ; 
write  ('to  add/del  ate/change  <0R>  press  enter  to 

return . ' ) ; 
gotoxy (21 , 10)  ; 
write  ('INITIALS:   -**■*'); 
X  :=  32;  COUNTER  :=  0;  CONTINUE  :  =  false; 

{get  initials  of  individual^ 
repeat 
repeat 

gotoxy  (X, 10) ; 
read ( kbd , CH) ; 
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i-f  CH    =    #27  then 
HELPKEY; 
until  CH    in  C#13,'Ar..'"Zr,'a'..'z'j; 
i f  CH  in  Ca'..'2'j  then 
CH    ; =  chr Card (CH) —32) * 
wri te  (CH) ; 
X  :=  X  +  i; 

COUNTER  : =  COUNTER  +  1 ; 
i  f  CH    in  C  *  A  *  .  .  '  Z  '  3  then 

CONTINUE  :  =  true; 
if  CONTINUE  then  begin 

CHECKNAMEC  COUNTER  II  :=  CH; 
if  CH  =  #13  then  begin 

for  L  :=  COUNTER  to  3  do 

CHECKNAMEELH  :=  '  '; 
COUNTER  :=  3; 
end;   Cif  CH=#131 
end;    -Cif  continue! 
until  (CH    =  chr (13))  or  (COUNTER  =  3); 

-Ccheck  initials  for  reserved} 
NAMESTRING  :=  CHECKNAME; 

if  (COUNTER  =  3)  and  ( (NAMESTRING  =  'ZZQ'J  or 
(NAMESTRING  =   ZZV)  or 
(NAMESTRING  =  '  ZZW .* )  or  (NAMESTRING  =  *ZZX)  or 
(NAMESTRING  =   ZZV")  or  (NAMESTRING  =   ZZZ"))  then 
begi  n 

CONTINUE  :=  false; 
sound (4000) ; del  ay (500) ; ncsound; 
gotoxy< 14,14) ; 

write ( 'SORRY,  THESE  INITIALS  RESERVED!'); 
delay (2503) ; 
end;   Cif  C0UNTER=33 
and;    Celse/if  SELECTEZ)=13' 

■Cput  all  initials  on  file  into! 
Can  array] 
if  CONTINUE  then  begin 

CHECKFILE  :=  concat (FILEDRIVE, * : TOUGH-ZZV ) ; 
Cread  file! 

assign  (WORKFILE,  CHECKFILE)  ;  -CGet  file  of  codes! 

i¥i  j' 
reset  (WORKFILE); 

if  ICresuit  =  0  then  begin 
IOCHECK  :=  true: 
LASTLINE  :=  1; 

{Read  file  and  assign  parts  of 
file  to  code  information! 
while  (not  eof  (WORKFILE))  and  (LASTLINE  <  170)  do 
beqi  n 

readln  (WORKFILE, SAVEL I NEC LASTLINE J ) $ 
TEMPLINE  :=  DECODE  (SAVEL I  NEC  LASTLINE  1 )  ; 
CODEM ASTER C LASTLINE 3  :=  copy  (TEMPLINE, 1 , 1 ) ; 
CODENAMEt LASTLINE 1     :=  copy  (TEMPLINE, 2, 3) ; 
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CODEWORD C LASTLINE 3  :=  copy  (TEMPLINE,5 , 8) ; 
LASTLINE  :=  LASTLINE  +  1; 
end;   Cwhile  not  eofJ 
LASTLINE  :=  LASTLINE  -  1; 
end   Cit  ICresuItJ 
el 3S  begi  n 
cirscr; 
qotoxy (3,3) ; 
write  ('SORRY!:   FILE:  "TOUCH- ZZV"   IS  NOT  ON  DISK 

'  .FILEDRIVE) 5 
qotoxy (6,12); 
write  ('PLEASE  REPLACE  NECESARY  FILE  BEFORE 

CONTINUING! ! ' ) ; 
sound  (682)  ; del  ay (300)  ;  nosouni';  delay  (5800)  ; 
IOCHECK  :=  false; 
end;  iel  se3- 
close(UJORKFILE) ; 

-Cif  touch,  zzv  is  on  disk,  cont3 
if  IOCHECK  then  begin 

if  SELECTED  =  2  then  begin 
NAME_OK  :=  false; 
CHANGE  ::=  false; 
I   .  =  1  • 

Ccheck  for  namestring  in  file} 
while  not <L>LASTLINE)  and  not  NAME_QK  do  begin 
if  CODENAMECLU  =  NAMESTRINS  then 

NAME_OK  :=  true 
el  se 

NAME_DK  :=  false; 

Ccheck  user's  initials  for  match 3 
L  s=  L .  +  1 ; 
end;    Cwhile  not  L>LASTLINE3- ; 

■Cif  namestring  is  in  file-— .-.2 
if  NAME_OK  then  begin 
L  5=  L  -  1; 
if  C0DEMASTERCL3  =   M*  then 

MASTER  :=  'PROBLEM  INVOCATOR' 
else 

MASTER  :=  'COMMITTEE  MEMBER'; 
qotoxy (11,12); 
write  (  "•  ' ,CODENAMECLD,  '"  IS  LISTED  AS  A  ' , 

MASTER) ; 
repeat 

got ox y  (4 , 14) ; 

write  ('Do  you  which  to  (C)hange  that  status 

or  (D)elete'); 
qotoxy  (4,15) ; 

write  ('this  person  from  the  files?    #'); 
gat ox y  (34,15); 
BETANSWER  (  ' c ' ,  ' d ' ,  ' C ' ,  ' D '  )  ; 

■Cif  choice  is  to  delete  member..  3 
if  CH    »     'D'  then  begin 
CLEARLINES; 


144 


gotaxy  (4, 14) ; 

write  (  ""  ,C0DENAMECL3,  '"  is  about  to  be 

deleted  from  '); 
write  ('the  files.   Do  you  '); 
gotaxy  (4,15); 

write  ('wish  to  continue?    *'); 
gatoxy  (24,15); 
GETANSWER  (  '  y ' ,  ' n ' ,  ' Y ' ,  ' N ' > ; 
end;   Cif  CH='D'3 
until  CH  in  C 'C* , *Y' ,#133; 

{.if    choice  is  to  delete  member.,] 
if  CH  in  C'Y',#13J  then  begin 
gatoxy  (1,12);  clreol; 
CLEARLINES; 
for  K  :=  L  to  (LA3TLINE  -  1 ) do 

SAVELINECK3  :=  SAVELINECK+1 3 ; 
LABTLINE  :=  LASTLINE  -  1; 
gatoxy  (10,14); 
write  (  ""  ,CDDENAMECL3,  '"  NQ    LONGER  HAS  ACCESS 

TO  ')  ; 
write  ( 'TOUCHSTONE. ' ) ; 
CHANGE  :=  true; 
end   {if  CH3- 

£if  choice  is  not  to  delete  member..  3- 
else  begin 
CLEARLINES; 
gatoxy  <4, 14) ; 
write  ('DO  YOU  WANT  " ' ,CODENAMEEL 1 , * "  TO  BE  A 

PROBLEM ' ) ; 
write  ('  INVOCATOR  OR  '); 
gotaxy  (4, 15) ; 

write  ( 'A  COMMITTEE  MEMBER?  (P/C)        **>; 
got ox y (31 , 15) ; 

GETANSWER  (  *  p ' ,  ' c  * ,  ' P ' ,  ' C  '  ) ; 

if  \kCH='P')     and  ;CO,DEMASTERlL  3  —     'W')>  or 
UCH='C)     and  <C0DEMASTERCL2  =  'M')>  then 
CHANGE  :=  true; 
if  CH  =  'P'  then  begin 
C0DEMASTERCL3  :=  *Mr; 

if  ( CODEWORD CL 3  =  CQDEWORDt 1 3 )  then 
CODEWORD I L  D  : =  ' ******** ' ; 
end 
el  se 

CODEMASTERCL:  :  =  'W'; 
if  C0DEMASTEREL3  =  '«'  then 

MASTER  ;=   PROBLEM  INVOCATOR' 
el  se 

MASTER  :=  'COMMITTEE  MEMBER'; 
gatoxy  (1,12);  clreal; 
CLEARLINES; 
gatoxy  ( 13, 14)  ; 
write  ( '" ' ,C0DENAMECL3, * "  IS  NOW  A 

' , MASTER ,'->; 
TEMPLINE  := 
concat (CODEMASTERCLj , CODENAME E L 3 , CODEWORD C L 3 ) ; 
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SA  v'EL I NE  £ L 1     : =  ENCODE ( TEMPL INE ) ; 
end; 
end   Cif  NAME  JDK } 

•Cif  namestring  is  not  in  -file..  3 
else  begin 

got ok y  (10,14); 

write  ("", NAMESTRING, '"  IS  NOT  ON  FILE  AT  THE 

PRESENT  TIME') ; 
qotoxy  ( 10, 15) ; 
write  ('DO  YOU  WISH  TO  ADD  " * , NAMESTRING, '"? 

gotoxy  (38,15); 
GETANSWER  ( *y ' , *n ' , ' Y ' , 'N ' ) ; 
if  CH  =  'Y'  then  begin 
CLEARLINE3; 
got ox y  (2,14); 
write  ("", NAMESTRING,  "*  NOW  HAS  ACCESS  TO 

TOUCHSTONE.   DO  '); 
write  ('YOU  WANT  " ' , NAMESTRING, ' "  TO'); 
gotoxy  (2, 15) ; 
write ('BE  A  PROBLEM  INVOCATOR  OR  COMMITTEE 

MEMBER? ' ) ; 
writeC   <P/C)   *'); 
gotoxy  (54,15); 
GETANSWER  ('p','c','P','C'); 
LASTLINE  :=  LASTLINE  +  1; 
L  :=  LASTLINE; 
C0DENAMEEL3  :=  NAMESTRING; 
C0DEW0RD£L3  :=  '  '; 

if  CH  =  'P'  then 

CODEMASTER £L 3  :=  'M' 
else 

CODEMASTER  £  L 1     : =  ' W ' ; 
TEMPLINE  := 

concat  < CODEMASTER £L 1 ,  CODENAMEELII , CODEWORD CL 3)  ; 
SAVELINE£L3  :=  ENCODE (TEMPLINE) ; 
CHANGE  :=  true; 
end;   £if  CH  =   Y'3- 
snd;  Celse/if  NAME_0K3 

(write  new  file  to  disk} 
end  Cif  SELECTED  =  2> 
else  begin 

gotoxy (4,4)  ; 

write  ('This  section  of  the  program  will  allow  you 

to  change ' ) ; 
gotoxy (4,5) ; 
write  ('the  Problem  Invocator  Password.   Don''t 

forget  that ' ) ; 
gotoxy (4,6) ; 
write  ('you  will  need  to  inform  all  other  problem 

invocatars ' ) ; 
gotoxy (4,7) ; 
writs  ('of  the  new  Password  if  you  want  them  to 

have  access ' ) ; 
gotoxy (4, S) ; 
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writs  <  to  Tauchstcne. '); 

gotoxy  (4,  10)  ; 

writa  ('For  this  version  of  TOUCHSTONE,  that 

password  is: ' ) ; 
got ox v  £19,11) 5 

wri  te  (  '  **-*  ***  '  )  ; 

qotoxy  (23,11);  textcoior (yellow) ; 
text background (red) ; 
write  £*    ' ,CODEWORDCiD ,  "    '); 
textcoior (white) ;  textbacKground (bine) ; 
qotoxy  (4,12) ; 
write  ('Please  input  the  new  Problem  Invocator 

password  below: '); 
gotoxy  (25, 13) ; 
write  (**********); 
gotoxy (16, 14) ; 

wri te (' (Maximum  of  3  letters)'); 
X  :=  25;-  COUNTER  :=i; 
Cget  user's  codeword} 
repeat      Cuntil  COUNTER  >S3- 
gotoxy (X , 13) ; 
GETANS ; 

CHECKCODEC COUNTER 3  :  =  CH; 

if  not  (CHECK-CODEC  1  j  in  C'  ',#133)  then  begin 
X  :=  X  +  1; 
wri  te  (.Chi)  ; 
if  CH    =  #13  then  begin 

for  L  :=  COUNTER  zo    3  do 

CHECKCODEC LH  .- =  '  '; 
COUNTER  :=  8; 
end;   {if  CH=#133 
COUNTER  :=  COUNTER  +  1; 
end;  Lif  not  cbeckcodeJ- 
until  COUNTER  >  3; 
CODEWORD CI  J  5=  CHECKCODE; 

•Cif  Problem  Invocator  qassword  is  the  same  as  the 
Committee  Member  password,  clear  the  Committee 
Member  pas swore 2 
L  :=  2; 
while  not  (L>LASTLINE)  do  begin 

if  ( CODEWORD EL3  =  CODEWORD C  i  2  )  and 
(C0DEMASTERCL3  =   M')  then 
CODEWORD  CL 1     :  =  '****#****; 
L  :=  L  +  1; 
end;   Cwhile  not  L>LASTLINE>; 

gotoxy  (3,15) ; 

write  ('NEW  PROELEM  INVOCATOR  FAS3W0RD  13: 

'  , CODEWORD CI j) ; 
for  K  :=  1  to  LASTLINE  do  begin 

TEMPLINE  := 

concat (C0DEMASTERCK3 ,C3DENAME:X'j , CODEWORD C K 3) ; 

SAVEL 1 NE C  K  D  : =  ENCODE ( TEMPL INE) ; 
end;    Cfor  J 3 
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CHANGE  :=  true; 
end;    Celse/if  SELECTED=2} 
if  CHANGE  then  begin 

assign (WORKFILE,CHECKFILE) ; 

rewrite  (WQRKFILE) ; 

-For  K  :=  1  to  LASTLINE  do  begin 

wr  i  t ei  n < WQRKF I LE , SAVEL I NE C K 1 ) ; 
end;   C-for  J3- 
close (WORKFILE) ; 
and;    Ci-f  CHANGE  3 
delay  (222(2}  ; 
end;    Ci-f  IOCHECIO 
end;    Ci-f  CONTINUE* 
cirscr ; 
end;    {procedure  CHANGESTATUS3- 
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CFILTER9.LIB] 

( **********•*-*■■*■*■***-*■•**** 
*   PROCEDURE 

SUPPORTS  PROGRAM 
LOCAL  VARIABLES 
GLOBAL  VARIABLES 


***************************■*-**•*-*•*-*-*•*--* 


* 

* 
* 

* 
* 


ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 
EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


REVIEW1 

CTOUCH.PAS 

NONE 

NAMES,  LIMMIT,  CH,  COUNT,  V,  . 

TRACK1,  NUM,  SECNUM,  THRNUM 

CRITARRAY 

NONE 

NONE 

NONE 

LISTS  ALTERNATIVES/CRITERIA 
PREVIOUSLY  INPUT,  SO  THAT  THE 
USER  MAY  VIEW  AND  OR  CHANGE  THE 
RECORDS,  DEPENDING  UPON  WHICH 
STAGE  HE  IS  IN. 


* 

* 

* 
* 

* 

* 
* 

* 


procedure  Reviewi <var  Names   :   CritArray; 

Limmit  :  Integer); 

begin    C  Re  v  i  e  w  3- 

ch  :=  #32;       count  :=  1;       Y  :=  6; 

gotoxy (2,6) ; 

repeat 

case  Names C Tr ack 1 U . flag!  of 

1..100  :   begin    Cinside  case  statement  -flagll 

if  ( Names E Track  I  J  .  f  lag2  =  0)  and 
(NamesETrackl  1 .  Flag-3  =  0)  then 

begin   (Case  If  Statement} 

num  :=  namesCtrackl 1 . f lagl ; 

gotoxy (1,Y);   clreol; 

Wr  i  t  e ( Num ,  ' ,    ' )  ; 

Secnum  :=  1;    Y  :=  succ (Y) ; 
end;    -CCase  If  Statement} 

case  NamesCTrackl ] . f lag2  of 

1 . . 100   :   begi  n 

•Cinside  case  statement  flag23- 

if  (NamesETrack 1 1 . f laq3  =  0)  than 


14? 


begin   {Case  If  Statement} 
gotoxy ( 1 , Y) ;   clreol; 
gotoxy (3, Y) ; 

Write(SecNudi,  '.    '); 
SecNum  :=  Succ(SecNum) ; 
ThrNum  :=  i;    Y  :=  succ(Y); 
end;    {Case  If  Statement} 

case  Names C Track! 3 . fiaq3  of 

1.. 100   :   begin   CCase  If  Statement} 
gotoxy(l,Y);   clreol; 
gotoxy (5, Y) ; 
Write (ThrNum, ') .    '); 
ThrNum  : =  ThrNum  +  1 ; 
Y  :=  succ(Y) ; 
end;    -CCase  If  Statement} 

end;   CCase  Statement  for  flag33- 

end;      Cinside  case  statement  flag23 

end;   {Case  Statement  for  flag23 

Write (NamesCTrackl 3. CritName, ' :    ' T 
Names CTrackl j . Cr i tDef ) ; 

end;     -Cinside  case  statement  flagl} 

end;   {Case  Statement  for  f lag  13- 

count  :=  count  +  1; 

Track  1  :=  Track!  +  1; 

until  (Track!  =  Limmit)  or  (count  =  14); 

end;     {Review!} 
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procedure  SetTheKeys  \-</3Lr     Inputstri  ng:  Str  ingarray ; 

G: Integer ) ; 


*  PROCEDURE 

*  SUPPORTS  PROGRAM 

*  LOCAL  VARIABLES 

*  GLOBAL  VARIABLES 

* 

# 
* 

* 
* 

* 
* 


ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 

EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


GETTHEKEYS  * 

BTOUCH.PAS,  CTQUCH.PAS  * 

HORIZONTAL,  VERTICAL,  VERT2         * 

X,  STOPPROG,  COUNTED,  HELPS I ZE,    * 

HELPER,  COUNTER  CHATOK,  FILEDRIVE,* 

PROBNAME,  NAMESTRING,  PT1,  PT2, 

PT3,  PT4,  INVOCATOR,  CHT,  TRACK! 

SCROLLIT  LIMMIT,  Y,  Z,  G, 

INPUTSTRING 

NONE 

NONE 

SCROLLBOX,  CHATRBOX,  CHATRCHECK, 

REVIEW I 


THIS  PROCEDURE  READS  EACH 
KEYSTROKE,  THEREBYE  REPLACING  ALL 
READLNS  THIS  ALLOWS  THE  FUNCTION 
KEYS  TO  BE  ACCESSED  AT  ANY  TIME 
DURING  THE  PROGRAM. 


* 
* 
* 

-Jfc 


#******4*******#***#*************************#*****^**#***) 


HORIZONTAL,  VERTICAL,  VERTZ 
begin     CGetTheKeys3 


INTEGER? 


StopProg  :  =  False; 

Horizontal  :=  whereX;   Vertical  :=  whereY; 

X  :=  Horizontal: 

repeat 

textbackground (Yellow) ; 

gotoX Y  ( X  ,  Vertical )  ;   wn  te  <  '  * )  ; 

X  : =  succ  <X) ; 

until  X  =  Horizontal  +  G; 
counted  ?  =  0; 


for  X  : =  1  to  G  do 

inputstrinqCX]  := 

repeat 

rsaa  (.kod  „cht )  ; 
case  cht  o-f 


{initialize  the  array} 
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#27   :   begin 

(Escape  sequence  for  function  keys} 

read  £ kfad , cnt ) ; 

case  cht  of 

#59   s   begin    -C  Fi  J 
Scroll Box  ( 12, 3, HELPS I ZE, HELPER) ; 
testbackgrourid  (Yellow)  ; 
gotoXY (Horizontal , Vertical )  ; 
for  counter  :=  1  to  counted  do 
wri te (inputstri ngC counter  1 ) ; 
end;     C  Fl  J 

#60   :   if  ChatQK  and 

(Invocator  <>  'M')  then 
begin    £    F2  D 

ChatRBox (Fi leDri ve, Pr obName, 
NameString) ; 
chatrcheck; 

window  <pt 1 , pt2,pt3,pt4) ; 
textbackground ( Yel low) ; 
gotoXY (Horizontal , Verti  cai )  ; 
for  counter  :=  1  to  counted  do 
wri te • inputstring  CcounterJ); 
end?      C  F2  3 

#61   :   if  WeedDef  and 

(Invocator  <>  *H*)  then 
begin    -C  F3  > 
ScrollBox (12,11,53,  A') ; 
window (ptl,pt2,pt3,pt4)  ; 
textbackground (Yellow) ; 
gotoXY (Horizontal , Vertical ) ; 
for  counter  t=    1    to  counted  do 
wri  te ( i  nputstr i  ng  [counter  3 ) ; 
end;      C  F3  3- 

#68   :   begin    £  F10  J 
StopProg  :=  True; 
cht  :=  #13; 
end;     £  F10  3- 

#71   :   if  scroilit  then 

begin     -C  home  3 

textbackground (blue) ; 

gotoxy(2,6);   Y  :=  6; 

track 1  :=  1; 

revi  ewl (names , 1 immi t ) ; 

track  1  :=  1; 

gotoxy (2 ,6) ;    Y  :=  6; 


if  (wherey  =  6)  or 

(trackl  =  1)  then 

begin 

sound (5000) ; 

delay* 100) ; 

nosound; 

end; 
end;      Chome3 


#72   :   if  scroilit  then 
begin     Cup  arrow} 
textbackground (blue) ; 
if  (wherey  >  6)  then 
begin 

y  :=  y  -  1; 
trackl  :=  trackl  —  1; 
gotaxy (2,y) ; 
end; 

if  (wherey  =  6)  and 
(trackl  >  1)  then 
begin 

if  trackl  >  13  then 
trackl  :=  trackl  -  13 
el  se 

trackl  :=  trackl  -  1; 
reviewl (Names, I immi t ) ; 
got  ox  y ( 2 , 6 ) ;    Y  : =  6 ; 
if  trackl  >  13  then 
trackl  :=  trackl  —  13 
else 

trackl  :=  1; 
end; 

if  (wherey  =  6)  and 
(trackl  =  1)  then 
begin 

sound (5000) ; 
delay ( 130) ; 
nosound; 
end; 

end;      Cup  arrow) 


#73   :   if  scroilit  then 
begin     {page  up! 
textbackground (blue) ; 
gotoxy (2,6) ;   Y  :=  6; 


if  trac 

kl 

>  13  then 

trackl 

;  = 

trackl  -  17 

else 

trackl 

:  = 

1; 

if  trac 

kl 

<  1  then 

trackl 

a  ~~ 

1; 

review! (names, 1 immit) ; 


>  13  then 

track!  -  17 


if  trackl 
track!  := 
el  5e 

track!  :=  1? 
i-f  trackl  <  1  then 
trackl  :=  1; 
gotoxy (2,6) ;    Y  := 
if  (wherey  =  6)  or 
(track!  =  1)  then 
begin 

sound (5000) ; 
delay (100) ; 
nosound; 
end; 
end;     {page  up} 


6; 


#79 


i-f  scrallit  then 


begin     CendD 

gatoxy (2,6) ;   Y  :=  6; 
textbackground (blue) ; 
trackl  :=  limmit  —  13; 
reviewl  (names,  1  imrnit)  ; 
Y  :=  13; 

track!  :=  limmit; 
gotoxy(2, IS) ; 
if  (wherey  =  IS)  or 
(trackl  =  limmit) 
then 
begin 

sound (5000) ; 
delay ( 100) ; 
nosound 5 
end; 
end;      Cend} 


#80 


if  scrallit  then 


begin 


{down  arrow} 


textbackground (blue) 
if  (wherey  <  18)  and 
(wherey  >  5)  and 
(trackl  <  limmit) 
then 
begin 

y  :=  y  +  1; 
trackl  := 

track!  +  1; 
gotoxy <2,y)  ; 
end; 
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if  (wherey  =  IS)  ano 
(trackl  <  limmit) 
then 
begin 

if  track!    13 
then 

track!  : — 

wi**aCK-l      \jL 

ei  se 

Soto;-: y  (2,6)  ? 
Y  :=  6; 

review! (names, 
1 immi  t ) ; 
y  :=  wharey; 
got ox y  (2,y) ; 
end; 

if  Cwherey  =  IS)  and 

(track  1  =  limmit) 

then 

begin 

sound (5300) " 
delay ( 100) ; 
nosound; 

and; 

end;       {down  arrowy 


#31   :   if  scroilit  then 

begin     Cpage  downy 

fcex  t background ( b  i  ue ) ; 
gotoxy(2,6);   Y  :=  6; 


if  track!    13  then 
track!  := 


if  track  1  >  iimmit-13 
then 
trackl  :=  limmit— 13; 

review! (names , I i mm it  : 

y  :=  wherey; 

if  trackl  =  limmit  then 

Y  :=  wherey; 
got ox y (2,Y) ; 


if  (whersy  =  13)  or 

(track  1  =  limmit) 

then 

begin 

sound  (5330)  ^ 
delay  <  100)  ; 
nosound; 

end; 

end;      Cpage  down} 


#75,  #S3   :   if  counted  >  S3  then 

begin 
•Cdelete  &  left  arrow} 

counted  ; = 

counted  —  i ; 
X  :=  whersX; 
2  :=  whereY; 
SotoXY (X-i ,2) ; 
inputstri  ng 
Ecounted+i]  :=  #32; 
write  <  *  ' ) ; 
GotoXY ( X— i , 2) ; 

end 
el  se 

begin 

gotoxy<  (hcrizontaH- 

counted)  T vertical  5 ; 

sound (5000) ; 

delay  i 100) ; 

nosound; 
end; 


end;      Cease  Statement} 
end; [Escape  sequence  for  function  kevsj 


#32.. #125   :   if  counted  <  G  then 

begin    (normal  characters} 
counted  :=  counted  +  Is 

FORCES  EVERY  CHARACTER  INTO 
CAPS 

**************#*-*•»••**-*■**■«■** ) 

i  f  cht  in C ' a  * . .  '  z ' 1    then 

cht  :=  chr (or d (cht) -32) ; 
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inputstringCcounted 1     :=  cht 
write (cht) ; 
end;      (normal  char  aster's  3- 
#S  ;   i-f  (counted  >  0)  then 

begin     Cbackspace} 

counted  :=  counted  -  1; 
X  :=  whereX; 
Z  :=  whereY; 
GotoXY(X-l,Z) ; 
inputstring 
Ccounted+13  :=  #32; 
write ( '  ' )  ; 
BotoX Y<X-1,Z) ; 

end      (backspace} 
el  se 

begin 

qotoxy( (hori zontal + 

counted) , vertical ) ; 

sound (5000) ; 

del  ay ( 130) ; 

ncsound; 
end; 

end;   {[case  statement 3- 

if  (counted  =  G)  and  (cht  <>  #13)  then 
■Cend  o-f  string} 

begin 

gotoxy ( (horizontal +counted) , verti cal ) ; 
sound (5000) ;   delay (100);   nosound; 

end; 

until  (cht  =  #13)  ; 

i-f  counted  <  G  then 

begin 

X  :=  Horizontal  +  counted; 
repeat 

tex tbackground (bl ue) ; 
gotoXY(X, Vertical)  ;   writeC  '); 
X  : =  succ ( X ) ; 
until  X  =  Horizontal  +  G; 
end ; 
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textcolor (white) ; 
textbackqround (blue) ; 


end; 


CGetTheKeys3 


procedure  Sortem(Var  probl,  prob2   :  probRec) ; 

TEMPprob  :  probrac; 

begin    CSortEmJ 

TempProb  :=  probl; 
prob2  :=  Tempprob; 


end; 


i Sort Em J 


probl  :=  prob2; 


procedure  probSart <var  Probs  :  probArray; 

limmit  :  inteqer); 


<*#*******#*******##*#*******#*********#*****#*** 


* 

* 
* 

* 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 
GLOBAL  VARIABLES 
ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 
EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


PROBSORT 

3TOUCH.PAS 

NOEXCHANGES,  FURST,  PASS, 

PROBS,  LI MM IT 

PROBARRAY 

NONE 

SORTEM 

NONE 


IMID    * 

* 
* 

* 
EXECUTES  AN  ALPHA  SORT  ON  RECORDS  * 
IN  PROBARRAY  USING  THE  PROBLEM  * 
NAME.  * 


*********************************************************•*) 


var 


NOEXCHANGES  :   BOOLEAN; 

FURST,  PASS,  LIMID    :   INTEGER; 

begin    £prob5ort> 

limid  :=  limmit  —  1 5   Pass  :=  i; 

repeat 

Noexchanges  :=  True; 

■for  Furst  :=  i  to  limid  -  Pass  da 


15S 


if  (PrabsEFurstl . problem  > 

ProbsCFurst  +  1 1. problem)  then 

begin    CEx change j 

SortEm (FrobsiFurst 1 ,  ProosCFurst 

Noex changes  :=  False; 
end:      £Exchanqe3 


+  13)  ; 


Pass  : =  Pass  +  1 ; 

'until  Noex  changes; 

end;     CprobSortJ 

procedure  ReWri telt (var  Probs   :   probArray; 

Limmit  :  Integer); 


REWRITE IT  * 

BTOUCH.PAS  * 

NONE  * 

TRACK 1 ,  PROBS,  LIMMIT,  PROBNAME ,  * 

ALTERNATIVE,  CHANQEREC  * 

PROBARRAY  * 

ACITVEPROBLEMFILE  =  'PROBS.TXT  * 

NONE  * 

NONE  * 

* 

REWRITES    ACTIVEPROBLEMFILE  * 

(PROBS.TXT)  * 

begin  CReWritelt} 


* 

* 
* 
* 

* 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 
GLOBAL  VARIABLES 

ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 
EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


rswn  te  (acti  veprcbl  smf  i  is)  ; 
Track  1  :=  1; 


■aceat 


i  f  (chanqerec  =  'C')  and 

(probsCtracx! 1 . problem  =  probname)  and 
(probsC track  1 j . choi ce  =  alternative)  then 
probsCtracki 1 . checkchanqe  :=  chanqerec; 

if  (chanqerec  =  'N'5  and 

(  probs  C  track!  I! .  pr  obi  em  =  probname)  and 
(probsCtracki j . member  =  namestring)  and 
(probsCtracki j . choice  =  alternative)  then 
probsCtracki 1 . checkchange  :=  changerec; 


Write  <, 

Track! 


»ct i  veprobl emf  i i  e , ProbsC Track I 2 


i  rac 


u  1 


+  i; 


until     iTraiCki    ~    Limmit); 


.JV 


close  Cacti  veprobiemf i le); 
end;      CReWritelt! 

procedure  LoadE/nUp ; 


■:  ************-**^*****^^*************^*****-****#************* 


* 
* 

# 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 
GLOBAL  VARIABLES 
ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 
EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


LOADEMUP 

BTOUCH.PAS 

NONE 

Z,  TRACK 1,  PROBS,  LI MM IT 

PROBARRAY 

ACTIVEFROBLEMFILE  =  'PROBS.TXT' 

PROBSGRT,  REWRITE IT 

NONE 

LOADS  THE  ARRAY  PROBARRAY,  SORTS 
THE  RECORDS,  THEN  PUTS  THEM  BACK 
IN  THE  FILE. 


* 

* 

* 
* 
# 
# 

* 


begin    CLoadEfltUp? 

Reset  (Acti  vePr  obi  emFi  I  e> 5 

z  s  =  Cf i lesize (acti veprobiemf i I e) > 5 

close (acti veprobiemf i le) ; 

if   z  >  £3  then 

begin    Clf  the  filesize  statement! 

reset (acti vepr obi emfi le)  ; 


1 rackl 


ss   1  > 


while  not  EOF (acti veorobl emfi le)  do 

begin    CWhile  Statement! 

Read (acti  veprobiemf i le,ProbsCTrackl 1 )  ; 
Track!  :=  Track!  -+-  1; 


ena; 


CWhile  Statement  J- 


Limmit  :=  Track!; 

close (acti vepr obi emfi le)  ; 

pr obSort (Probs , Limmit) ; 
rewri  tei  t  Cprobs, 1 immi  t )  ; 


end; 


Clf  the  filesize  statement} 
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end; 


{LoatiEmUp J 


procedure  Loadthe-f i  1  es; 
(*********#*****#*****#*****-**********#*#******^ 


LOADTHEFILES 

CTOUCH.PAS 

NONE 

FILEDRIVE,  ALTERNATIVE, 

NAMESTRING,  PRDBNAME 

NONE 

TEMPFLAGSET  =  'FLAGSET.TXT 

(LOCAL  ONLY) 

NONE 

NONE 

CTOUCH.PAS  (MAIN  PROGRAM) 

LOADS  THE  TEMPFLAGSET  FILE 

THE  VARIABLES 

LISTED,  SO  THAT  THE  PROGRAM 

FLAGSET.PAS  WILL 

READ  THE  FILE  AND  KNOW  WHAT  TO  DO.* 


* 

* 

* 

* 
* 
# 
* 
* 
* 

* 
* 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 
GLOBAL  VARIABLES 

ARRAYS  USED 
FILES  ACCESSED 

EXTERNAL  CALLS 
EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


*- 
* 

* 
W I TH    * 
* 


var 

TEMPFLAGSET 


"EXT; 


begin    tloadthef  i  les3- 

assign  (temp -flag  set ,  *f  lagset .  txt  ' )  ; 
rewri  te (tempf lagset ) ; 

wri  teln  (temp-f  1  agset ,  f  i  i  edri  ve)  ; 
wri  teln  (tempf 1  aqset ,  alternative)  ; 
wri  teln (tsmpti agset ,namestring) \ 
wri  t el  n  ( temp-f  1  agset  , probname)  ; 


en  a: 


cl  ose  (temp-f  lagset )  ; 
■Cloadthe-f  i  les3- 
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procedure  AI ternateChoice; 


* 

# 
* 

* 

* 

* 

* 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 
GLOBAL  VARIABLES 
ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 
EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


ALTERNATECHOICE 

3T0UCH.PAS,  CTOUCH.PAS 

CHM 

INPUTSTRING,  ALTERNATIVE 

NONE 

NONE 

GETTHEKEYS 

NONE 


* 
* 
* 

* 

* 

* 

ALLOWS  THE  USER  TO  SELECT  WHETHER  * 

HE  WILL  BE  DEVELOPING  * 

ALTERNATIVES  OR  CRITERIA.  * 


var 


chm   :   char; 

begin   CAI ternateChoice] 
clrscr ; 
got ax y (1,8) ; 

writei 'Ars  you  developing  Alternatives  or  Criteria? 

A/C   '  ) ; 
gotoxy (53, 3) ; 

repeat 

getthekeys (input string , 1 ) ; 

alternative  :=  inputstring; 

chm  :=  alternative; 

got ox y ;58,3) ; 
until  chm  in  ['A','C']; 
end;     CA1 ternateChoice} 
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procedure  BETFILENAMES; 


* 
* 

* 
* 

* 

* 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 
GLOBAL  VARIABLES 

ARRAYS  USED 
FILES  ACCESSED 

EXTERNAL  CALLS 
EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


BETFILENAMES 
BTOUCH.PAS,  CTOUCH.PAS 
AUTHORITY,  TEMPNAME,  CODENAME 

FILEDRIVE,  NAMESTRING, 

AUTHORIZED 


HELPDRIVE, 
INVGCATOR, 
NONE 
TEMPFILE  = 


DRIVEFIL.TMP* 


(LOCAL 
DECODE 


ONLY) 


* 


* 


READS  THE  TEMPFILE  WRITTEN  IN  A  * 
PREVIOUS  PROCEDURE  AND  RELOADS  * 
THE  GLOBAL  VARIABLES.  * 


****************************^***************************** ) 


AUTHORITY 
TEMPNAME , 
TEMPFILE 


:gdename 


char; 

stnngC  123  ; 
text; 


< TEMPF ILE , ' DR I VEF I L . TMP ' > 


begin 
assi gn 
C*I-J 
reset  (TEMPFILE); 

if  IOresult  =  0  then  begin 

reaciln  (TEMPFILE,  CODENAME); 

TEMPNAME  :=  DECODE  (CGDENAME) 
=  copy  < TEMPNAME , 1 , 
=  copy  •:  TEMPNAME ,  2 , 


HELPDRIVE 
FILEDRIVE 
AUTHOR I TY 
NAMESTRING 
INVGCATOR 
close  (TEMPFILE); 
if  AUTHORITY  =  "T"  th 
AUTHORIZED  :=  true; 


=  copy:  TEMPNAME .  3  , 
:=  c gov (TEMPNAME, 4 
=  copy  < TEMPNAME , 7 , 


i)  ; 
I) ; 

*  *  5 

,3)  ; 

1)  ; 


»n 


;eqin 


it  invocator  =  "M"  then 
begin 

AUTHORITY  :=  'F'; 
TEMPNAME  := 
c 3ncat( HELPDRIVE , F I LEDR I VE , AUTHOR I TY , NAMESTR I NG , 
INVGCATOR) ; 
CODENAME  :=  ENCODE (TEMPNAME) ; 
rewrite (TEMPFILE) ; 
wr i  te ( TEMPF I LE , CODENAME ) ; 
close (tempt i le) ; 
end; 
and 
el  se 

AUTHORIZED  :=  falsa; 
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end    Ci-f  IDresultJ 
el  se 

AUTHORIZED  :=  -false? 
?nd;   {procedure  GETFILENAMESJ 
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(**********************************************************) 


FILE 

WRITTEN  BY 
PURPOSE 


CONTENTS 


FILTERA.LIB   <I92  lines) 
Mike  Neeiey  ?<  Bob  Wocidridqe,  May . 36 
Procedure  library  -for  TOUCHSTONE  (COOP 
Criteria  Filter  Program)  written  as  a  part 
of  a  thesis  -for  a  Master  o-f  Science  in 
Computer  Systems  Management,  Naval 
Postgraduate  School,  Monterey,  California 
TITLE,  BASICBOX 


(**********************************************************) 


PROCEDURE 
WRITTEN  BY 

PURPOSE 

PARAMETERS 

EXTERNAL 
NEEDS 


BASICBOX 

Mike  Neeiey  &  Bob  Wooldridge,  May, 86 

Based  on  a  program  created  by  Mark  Hayes 

Draws  a  box  as  specified  by  the  input 

variables 

X1,Y1,X2,Y2  :  integers  (box  corner 

coordinates) 

none 


( ***************************************************** 
procedure  BASICBOX  CXI  ,Y1  -JC2-Y2:  integer  >  : 


var 


3C  :  array  C  i  ..  1  ,  1 .,  41    o-f  integer; 
M, I , J  :  Integer; 


begi  n 


•Cbox  parameters} 
BCCl,i:  :=  XI;     BCLi,23  :=  Yl;     BCr.1,33  :=  X2; 
3CC1 ,43  :=  Y2; 

•for  M  :=  1  to  i  do  begin  (draw  a  single  box  as 

needed  j- 
GctoXY(3CLM,i:,BCCM,23)  ; 
wri  te  ichr (201 ) ) ; 
for  J  :=  (BCCM,13+I)  to  (BCEM,33-1)  do  begin 

SctoXY(J,BC!IM,23)  ; 

write (chr (205) ) 
end;   (for  J  : =3 
GotoXY(BCLM,3:,BCi:M,2:)  ; 
writ=<chr (137) > ; 
for  I  :=  (BCCM,23+I)  to  (BCCM,43— 1)  do  begin 

GotoXY(BCCM,i:,I) ; 

write(chr (186) ) ; 

GotaXY<BCCM,3D, I)  ; 

write(chr (186) ) 
end;   -Cfcr  I  :=0 
3otoXY(3CLM, 13,BCCM,43) j 
wri  te (chr (222) ) ; 
for  J  :=  (BCCM,13+1)  to  (BCCM,3J-1)  do  begin 

GotoXY(J,BCCM,43) ; 


wn  te  (chr  (205)  ) 
end;   (for  J  :  =3- 
GotoXY<BCEM,33 ,BCCM,43) ; 
write (chr ( 188) ) 
end;  if  or  M  :=0- 
end;   Cprocedure  BASICB0X1 

PROCEDURE   ;  TITLE 

WRITTEN  BY  :  Mike  Neelav  &  Bob  Wool dri age.  May, 36 

Based  on  a  program  created  by  Mark  Hayes 
PURPOSE     :  Draws  the  title  screens  with  sound  input 
PARAMETERS  :  none 
EXTERNAL 

NEEDS       :  none 
( #*#*******##**#***#**********####******###**##^  ) 

procedure  TITLE; 

NOTE, M, I, J  :  Integer; 

begin 

window  (1,1,80,25); 
portC*03d93  :=  *f  and  3; 
taxtbackground (blue) ;  textcaior (white) s 

3ASIC30X (14,4,60,20) ; 

BASICB0X(17,5,63,21) ; 

BASICBOX (20,6,66,22) ; 

textcolar (yel low) ; 

got  ox  y  (35,8);  (begin  first  title  screen) 

wr i  te  ( ' TOUCHSTONE ' ) ; 

got ox y  (25, 10) ; 

write  ('A  Criteria  Development  Program'); 

got ox y  (23, 11); 

write  ('for  Group  Decision  Support  Systems'); 

got  ox  y  (32,13) ; 

write  ('Michael  E.  Neeley'); 

gotoxy  (30,14); 

write  ('Robert  T.  Wool dridge ' ) ; 

gotoxy  (28,16); 

write  ('Naval  Postgraduate  School'); 

gotoxy  (30, 17) ; 

write  ('Monterey,  California'); 

gotoxy  (38, 13) ; 

write  ( ' 1986 ' > ; 

NOTE  :=  0; 

repeat  (noise  for  first  title  screen} 

sound  (1000); 

delay  (500) ; 

sound  (2000) ; 

delay  (500) ; 

NOTE  :=  NOTE  +  1; 
until  NOTE  =  3; 
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ncsoiind; 

delay     (5000);  {begin    second    title    screen} 

port:$03d91     i=    $■?    and    4; 

gotc;<y     (30,3)  ; 

write  ( ' ADM INI STRAT I VE  BC I ENCE * ) ; 

gotcxy  (25,10); 

write  ( '  ' )  ; 

got ox y  (35,10); 

write  t  *  DEPARTMENT ' )  ; 

got ox y  ( 23 ,  i  i  )  ; 

wr ite  (  '  '  )  ; 

got ox y  (32,12); 

write  ('  Thesis  Advisor   '); 

gotoxy  (32,13); 

write  (  ' )  ; 

gotoxy  (29,14); 

write  ('  Xuan  Tung  Bui,  Ph.D.  '); 

MOTE  1=0; 

repeat  Cnoise  -for  second  title  screen} 

sound  ( 1500) ; 

delav  (500) ; 

sound  (750) ; 

delay  (500) ; 

NOTE  :=  NOTE  +  1; 
until  NOTE  =  3; 
nosound; 
delay  .t2000)  ; 
end;   {procedure  TITLED- 
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( ^#^^^^##^^^^^^^^^#^^^*^^^*#********#*^**************^^*^^.^. ) 


FILE 

WRITTEN  BY 
PURPOSE 


FILTERS. LIB   (     ) 

Mike  Neeley  '<  Bab  Wooldridge,  May, 36 
Procedure  library  for  TOUCHSTONE  (COOP 
Criteria  Filter  Program)  written  as  a  part 
of  a  thesis  -for  a  Master  of  Science  in 
Computer  Systems  Management,  Naval 
Postgraduate  School,  Monterey,  California 
CONTENTS    i     ENCODE,  INTRQSCREEN,  INTRODUCTION, 
MAKECODE 

PROCEDURE  :  INTROSCREEN 

WRITTEN  BY  :  Mike  Neeley  Sc  Bob  Wooldridge,  May, 86 

PURPOSE  :  Draws  the  box  for  the  various  introductory 

and  menu  screens 

PARAMETERS  :  none 
EXTERNAL 

NEEDS  s  Include  file  FILTER!. LIB 

procedure  INTROSCREEN; 

begin   [procedure  INTROSCREEN} 

port C£03d9 1 ;  =  £f  and  S; 

textbackground (blue) ;  textcolar (whi te) ; 

window <1 , 1 ,80,25) ; 

clrscr ; 

BASICBOX (5,3,75,22) ; 

gatoxy (30,3) ; 

textbackground (red) ;  textcolor (yellow) ; 

write  ('       TOUCHSTONE       '); 

textbackground (blue) ;  textcolor (white) % 

window < 12 ,5,73,20) ; 
end; 

PROCEDURE  ;  ENCODE 

WRITTEN  BY  :  Mike  Neeley  &  Bob  Wooldridge,  May, 86 

PURPOSE  :  Encodes  user  name  and  user  ID  for  filing 

PARAMETERS  :  input:  NAMECODE  :  array CI.. 8 1    of  char; 

EXTERNAL 

NEEDS  :  none 

function  ENCODE (NAMECODE  :  CODEARRAY)  :  CODEARRAY; 

TEMPCDDE         :  arr ay C 1 ,. 123  of  char; 

I  :  integer; 

begi  n 

for  I  :=  1  to  12  do  begin 
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•{change  input  to  all  caps  and] 
if  NAMEC0DEEI3  in  E'a'..'z'3  then 
{delete  non- letters! 
NAMEC0DEEI3  :=  chr (ord (NAMECODEC 13 >  -  32); 
if  not  (NAMECODEC 13  in  C'A'.-'Z*  3)  then 
NAMECODEC I  3  :=  chr (32) ; 
end;   {for  13 

{encode  all  charters  into  code3 
-for  I  :=  1  to  12  do 

TEMPC0DECI3  :=  chr (ord (NAMECODEC 1 3 )  +  (97+1)  ); 

ENCODE  :=  TEMPCODE; 
end;    {procedure  ENCODE! 

( ******#****#**************************#*****#*#*****#***** ) 

PROCEDURE  :  DECODE 

WRITTEN  BY  :  Mike  Neeley  &  Bob  Wooldridge,  May, 36 

PURPOSE  :  Deccdes  user  name  and  user  ID  -from  rile 

PARAMETERS  :  input:  NAMECODE  :  array CI.. 83  of  char; 
EXTERNAL 

NEEDS  :  none 

-function  DECODE  (NAMECODE  :  CODEARRAY)  :  CODE  ARRAY; 

TEMPCODE  :  arrayCi.,123  o-f  char; 
I  :  integer; 

begin 

{decode  all  charters  from  code} 
for  I  :=  1  to  12  do 

TEMPC0DECI3  :=  chr (ord (NAMECODEC I  3 )  -  (97+1)); 

DECODE  :=  TEMPCODE; 
end;    {procedure  DECODED 

(****************-***********#****#******#**^ 

PROCEDURE   :  MAKECCDE 

WRITTEN  BY  :  Mike  Neeley  ?<  Bob  Wooldridge,  May, 86 

PURPOSE     :  Creates  a  new  copy  of  TOUCH. ZZV 

PARAMETERS  :  none 

EXTERNAL 

NEEDS       :  none 
(******************************^**********-*^  ) 

procedure  MAKECODE; 


var 

L,  X,  COUNTER 

CH 

INFUTWCRD 

CHECKFILE 

WORKFILE 

SAVELINE 


:  integer; 

:  char; 

t  string  1 8 3; 

:  stringE143; 

:  text; 

:  arrayC1..33  of  stringE12j; 
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CHECKCODE  :  array    LI.. 31    of  char; 

begin   {procedure  MAKEC0DE3- 
clrscr ; 
got ox v (4,6) ; 
writs  ('The  files  on  drive  ' , F I LEDR I VE , 

'  have  not  yet  ' ) ; 
write  ('been  initialized.'); 
got ox v  (4,73 ; 
write  ('For  these  files,  you  will  need  a  master 

password.    ' ) ; 
gotoxy  (4,8) ; 
write  ('Please  input  one  now:      (Maximum  of  S 

letters) ') ; 
COUNTER  :=  1;  X  :=  24; 
got  ox  y  (24,10);  write  ('***•****-*'); 
repeat     Cuntil  COUNTER  >S3- 
gotoxy  (X  ,  153)  ; 
repeat 

read (kbd, CH) ; 
if  CH  in  r'a'-.'z'l  then 
CH    :=  chr (ord(CH)-32) ; 
until  CH  in  C'A'.-'Z','  ',#131; 
write  (CH) ; 

CHECKCODE E COUNTER!  :=  CH; 

if  not (CHECKCODE El  3  in  l   ',#131)  then  begin 
X  :=  X  +  1; 
if  CH  =  #13  then  begin 

for  L  :=  COUNTER  to  S  do 

CHECKCODE C  LI  :=  '  '; 
COUNTER  :=  S; 
end;   Cif  CH=#133 
COUNTER  :=  COUNTER  +  1; 
end;  Cif  not  checkcodel 
until  COUNTER  >  3; 
INPUTWORD  :=  CHECKCODE; 

CHECKFILE  :=  concat (FILEDRIVE ,': TOUCH. ZZV ') ; 
assign  ( WORKF I LE, CHECKFILE) ; 
rewrite  (WORKFILE) ; 

CRead  file  and  assign  parts  of 
file  to  code  information! 
SAVELINEC11  :=  ENCODE (concat ( '      ', INPUTWORD) ) ; 
writeln (WORKFILE,  SAVELINEC 1 1 ) ; 
CLOSE (WORKFILE) ; 
clrscr ; 
end;     .procedure  MAKEC0DE3 
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(♦♦it**************************************** 
PROCEDURE   :  CHECKTHEFILES 

WRITTEN  SY  :  Mike  Nee lev  &  Bob  Wooldridge,  May, 36 
PURPOSE     :  Checks  to  see  o-f  necessary  files  a.r&    an 

f  i  I  edri  ve 
PARAMETERS  :  none 
EXTERNAL 
NEEDS       :  HELPDRI VE ,FILEDRIVE  :  char; 

procedure  CHECKTHEFILES; 

var 

WORKFILE  :  text; 

CHECKFILE  :  string  CI 43; 

begin 

Csee  if  TOUCH- ZZV  i  s  on  the  fiiedrive  disk! 
CHECKFILE  :=  concat (FILEDRIVE, ': TOUCH- ZZV ') ; 

{read  file} 
assign (WORKFILE, CHECKFILE) ;  CGet  file  af  codes! 

£*I-3 

reset  (WORKFILE); 
IS  I -hi 
if  lOresult  <>  9  then  begin 

MAKECODE ; 
end;   Cif  lOresult  <>03 
close (WORKFILE)  ; 

CHECKFILE  : =  concat (FILEDRIVE,  ' : PROBS. TXT ' )  ; 

(read  +ile3- 
assign < WORKFILE, CHECKFILE) ;  -CSet  file  of  codes! 

CSfl-J 

reset  (WORKFILE); 

if  lOresult  <>  3  then  begin 

r  ewr  i  t  e  < WORKF I LE ) ; 
end;   Cif  lOresult  OS33- 
c I ose £ WORKF I LE  > ; 
end;    {procedure  CHECKTHEFILES} 
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( *******^**#***************************#*****#*********#*** ) 


PROCEDURE 
WRITTEN  BY 
PURPOSE 

PARAMETERS 

EXTERNAL 

NEEDS 


SETTHEDATE 
Mi  ke  Nee I sy 


3c  Bob  Wool dr idge.  May, 36 


lets  date  troni  registers,  writes  date 
i  le 

lone 


:o 


none 


procedure  GetTheDate; 

{gets  and  changes  the  date} 


type 

REGISTERS  =  record 

AX , BX , CX , DX , BP , SI , DS , ES , FLAGS 
end;    (record) 
3TRING2  =  stringC2j; 
STRING4  =  stringC43; 


integer 


CONTINUE 

I',  MOT,  CGDE,DH,DL,X, 

MONTH, DAY 

HEXNUMBER ,  YEAR 

CH 

DATEFILE 

DA , MO , HR , MN 

YR,HEXLINE 

STRDATE 

DATE 

NUMCHAR 

REGS 


boolean; 

integer; 

integer; 

char; 

text; 

3TRING2; 

STRING4; 

stringC 103; 

stringC123; 

arrayC  i , . 3 j 

REGISTERS; 


o-f  char; 


function  HEXCHANBE  (HEXLINE: STRING4) ; integer ; 


(HEXLINE,2,1) ; 
<HEXLINE,3,1) ; 

(HEXLINE,4,i) ; 

■  10; 

:  11; 

;  12; 

■■  13; 

'  14; 


el  se 

val (B,X,CODE) ; 
end;   (base  3  o-f  J 


cnar ; 
integer; 


var 

B,C,D 

X , Y , 2 , CODE 

begin 

B  :=  copy 

C  :  =  copy 

D  ;;=  copy 

case  3  o-f 

A'  : 

•     X 

'B  ' 

;  X 

'C  ; 

■  X 

'D'  . 

:  X 

'E'  ■ 

■  X 

,  j-  , 

y 

/  2. 


case 

C 

of 

'A' 

:  Y  ; 

;  = 

10; 

'B  ' 

:  Y 

:  = 

ii; 

'C* 

:  Y  : 

;  = 

12; 

D' 

:  Y 

;  = 

13; 

E' 

i   V   . 
1    1    1 

:  = 

14; 

'F' 

:  Y 

;  = 

15; 

el  se 

val <C, Y,CQDE> ; 

end; 

Cbase  C  at  J 

case 

D  of 

'A' 

:  Z 

■  = 

10; 

'B' 

:  Z  : 

:  = 

ii; 

'C 

:  Z 

:  = 

12; 

'D' 

:  Z  ; 

;  = 

13; 

'E* 

:  Z 

:  = 

14; 

'F* 

:  Z  : 

:  = 

15; 

else 

val 

( D  ,  Z  ,  [ 

:CDE> ; 

end; 

Cbase 

=  D  of  3- 

HEXCHANGE  :=  (16*16*X) +  <16*Y> +Z; 

end;   {function  HEX CHANGE! 

function  HEX  (DATENUM: i nteqer ) : strinq2; 


sa.r 

HEX DATE  :  string2: 

begin 

case 

DATENUM  of 

1  : 

HEXDATE  : 

;  = 

'01  '; 

HEXDATE  ; 

:  = 

'02'; 

3  • 

HEXDATE 

;  = 

'  03  ' ; 

4  : 

HEXDATE  : 

:  = 

'  04  * ; 

5  : 

HEXDATE 

j  = 

'  35  ' ; 

6  : 

HEXDATE  : 

:  = 

'06  ' ; 

/    ■ 

HEXDATE 

:  = 

'07'; 

3  : 

HEXDATE  i 

:  = 

'  08 ' ; 

9  : 

HEXDATE 

:  = 

'09'  ; 

10 

:  HEXDATE 

;  = 

'0A'; 

11 

:  HEXDATE 

:  = 

'SB'  ; 

12 

:  HEXDATE 

:  = 

'0C; 

13 

:  HEXDATE 

:  = 

• '  0D  ' ; 

14 

:  HEXDATE 

;  = 

'  0E ' ; 

15 

:  HEXDATE 

;  = 

'  0F ' ; 

16 

:  HEXDATE 

:  = 

'10'; 

17 

:  HEXDATE 

:  = 

'  11  '; 

18 

:  HEXDATE 

:  = 

'12'; 

19 

:  HEXDATE 

:  = 

'13'; 

20 

:  HEXDATE 

;  = 

'14'; 

21 

:  HEXDATE 

;  =3 

'15'; 

on 

:  HEXDATE 

;  = 

'16'; 

23 

:  HEXDATE 

:  = 

'17'  ; 

24 

:  HEXDATE 

:  = 

'13'; 
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25 

: 

HEXDATE 

:=  '  19 

26 

: 

HEXDATE 

:=  '1A 

27 

! 

HEXDATE 

:=  '  IB 

2S 

■ 

HEXDATE 

:=  '10 

29 

; 

HEXDATE 

z=     'ID 

30 

i 

HEXDATE 

:=  'IE 

31 

■ 

HEXDATE 

:  =  "IF 

end; 

{case  DATENUM* 

HEX  : 

= 

HEXDATE; 

end; 

L 

f unc t ion 

HEX  3 

function  SPOT (X: integer) : integer; 


var 

TEMPSPOT 

begin 

case 

X  of 

1  : 

■  TEMPSPOT  : 

:  = 

TT 

jL. 

:  TEMPSPOT 

:  = 

24 

O   ■ 

.  TEMPSPOT  : 

;  = 

31 

4  : 

:  TEMPSPOT  . 

:  = 

JTO 

5  : 

:  TEMPSPOT  : 

;  = 

40 

6 

:  TEMPSPOT  : 

;  = 

41 

"7   , 

:  TEMPSPOT  : 

■  = 

42 

3 

;  TEMPSPOT 

;  = 

43 

and? 

SPOT 

:=  TEMPSPO" 

r; 

end; 

[function  SF 

^OT} 

integer 


begin   £SetTheDate3- 
with  REGS  do  begin 

AX  :=  £2A00; 

MSDOS(REBS) ; 

str (CX,YR) ; 

str  <lo<DX> ,DA) ; 

if  I o  < DX )  <  1 0  then 

DA  :=  concat ( '0 ', DA) ; 

str  (hi  (DX)  ,M0> ; 
end;   {with  RESSj 

val (mo, mot , code) ; 


ase 

Mi 

IT  of 

01 

: 

Date  : 

;  = 

'Jan 

02 

• 

Date 

>  = 

'Feb 

03 

s 

Date  : 

:  = 

'Mar 

04 

! 

Date 

:  = 

'Apr 

05 

: 

Date  i 

:  = 

'May 

06 

: 

Data 

:  = 

'Jan 

07 

: 

Data  ; 

;  = 

'Jul 

08 

• 

Date  , 

:  = 

'Aug 

09 

: 

Data  : 

= 

'Sep 
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13  :  Date  : =  'Oct ' ; 

11  :  Date  :=  'Nov'; 

12  :  Date  :=  'Dec'; 
and;  icass  MOT  of} 

Date  : =  concat (Date,  '  ' ,da,  '  ,  '  , yr )  ; 

assign  (datef i  le,  '  date,  txt  )  ; 
rewrite (datef ile) ; 
writeln  (date-f  i  le,dats)  ; 
close  ( date-f  i  le)  ; 

INTROSCREEN; 

got ox y (13,3) ; 

write  ('THE  CORRECT  DATE  IS  VERY  IMPORTANT  TO  THE'); 

gotaxy (14,4) ; 

write  ("PROPER  FUNCTIONING  OF  TOUCHSTONE!'); 

gotaxy (24,6) ; 

wri  te  (date) ; 

gotaxy (13,3) ; 

write  ('Is  this  date  correct?   Y*>; 

gotaxy (41 ,3) : 

repeat 

read  (  kbd ,  CH)  ; 

if  CH    in  L'y','n'l    then 
CH  :=  chr (ord (CH) -32) ; 
until  Ch)    in  C  ' Y  *  ,  'N  '  ,#131; 
write  \CH'}  ; 
delay  (500) ; 

if  CH  =  'N'  then  begin 
repeat 

continue  :=  false; 

got ox v (17,13) ; 

write  (  'Month  *-*   Day  **   Year  ***#'); 

X  ;  =  1 ; 

repeat 

g  or  ox  v ( SPOT ( X )  , 1 0 ) ; 

repeat 

read (kbd, NUMCHAR CX 3) ; 

until  NUMCHARCX3  in  C'B'..*9'3; 

write (NUMCHARCX1) ; 

X  :=  X  +  1; 
until  X  >  S; 

HO  ;=  concat CNUMCHARC1 1 ,NUMCHARC23) ; 
DA  :  =  c  on c  -^t.  '.  NUMCH AR  C  3  3  ,  NUMCHAR II 4 3 )  ; 
YR  :  = 
concat  < NUMCHAR l  51  ,  NUMCHAR  116 1  , 

NUMCHAR  C  7  3  , NUMCHAR  L 3  j ) ; 
val (YR, YEAR, CODE) ; 
val (MO, MONTH, CODE) ; 
vai ( DA , DA Y , CODE) ; 
:f  MONTH  in  EI  .,123  then 

CONTINUE  :=  true; 
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if  (DAY  in  CI -.31 1)     and  CONTINUE  then 

CONTINUE  :=  true; 
i-f  (YEAR  in  C 1986. , 20203 )  and  CONTINUE   then 

CONTINUE  i=    trust 
i-f  (DAY  in  LZil)     and  (MONTH  in  C4,6,9, 1 1 H )  then 

CONTINUE  :=  false; 
i-f  (MONTH  in  121)     and  (DAY  in  C29..313)  then 

CONTINUE  :=  false; 
i-f  (DAY  in  C29j)  and  (MONTH  in  C02Ii)  and  CONTINUE 
and 

(YEAR  in  l  1988,  1992,  1996,21230,2000,2004, 

2008,2012,2016,20203)  then 
CONTINUE  :=  true; 
until  CONTINUE; 
delay  (500) ; 
clrscr ; 

HEXLINE  :=  concat (HEX (month) , HEX (day) ) ; 
HEXNUMBER  ;  =  HEXCHANGE ( HEXL I NE )  ; 
with  REGS  do  begin 
CX  :=  YEAR; 
DX  :=  HEXNUMBER; 
AX  :=  £2B00; 
MSDOS(REGS) ; 
end;   Ci-f  CH  =   N'] 
end; 
end;    Cgetthedatel 


( *****************************************************  ) 

PROCEDURE   :  INTRODUCTION 

WRITTEN  BY  :  Mike  Neeley  &  Bob  Wooldridge,  May, 36 

PURPOSE     :  Writes  the  introduction  information  on  the 

screen 
PARAMETERS  :  none 
EXTERNAL 

NEEDS        :  HELPDRI VE,FILEDRIVE  :  char;   ' 
t **********************************************************) 

procedure  INTRODUCTION; 

CH  :  char; 

ACCURATE  :  boolean; 

WGRKFILE  :  text; 

CHECKF I LE  :  st r  i  ng  L 1 4 1 ; 

begin 

INTROSCREEN; 
got ox y (1,8) ; 
write  ('WOULD  YOU  LIKE  AN  INTRODUCTION  TO  TOUCHSTONE? 

(Y/N)   *•'); 
go t  ox  y  <  55 „ 3 )  ; 
repeat 

read (kbd ,CH) ; 

i  f    CH    in  C ' y  '  ,  ' '  n  '  1    then 
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CH  :=  chr(ordCCH)  -  32); 
until  iCH    in  C  '  Y  '  ,  '  N  '  3  )  ; 

write(CH);  deiay(530); 
clrscr ; 

if  CH  =  "/'  then  begin 
gotoxy  (14,  1)  ; 

write<'*  INTRODUCTION  &  INFORMATION  *  '  )  ; 
get ox y  <  i , 4) ; 
write  C"      The  TOUCHSTONE  program  is  designed  to 

assist  you  in') ; 
got ox y  (1,6) ; 
write  ('developing  -functional  and  meaningful  group 

criteria  for  ' ) ; 
gotoxy  (1,8); 
write  ('a  Group  Decision  Support  System.   Utilizing 

the  TOUCHSTONE ' ) ; 
gotoxy  ( 1 , 19) ; 
write  ("program,  you  will  be  able  to  condense  a  large 

list  of    '); 
gotoxy  (1,12); 
write  (' spontaneous! y—consi dered  criteria  into  a 

compact,  well—  '); 
gotoxy  (1,14); 

write  ('defined,  GROUP-SELECTED  set  of  criteria.  '); 
gotoxy  (15,16) ; 

write  ("< PRESS  ANY  KEY  TO  CONTINUE?- ')  ; 
repeat  until  keypressed; 
clrscr; 
gotoxy (9,1); 

writeC*  INTRODUCTION  &  INFORMATION  (continued)  *'); 
gotoxy  (1,4); 
write  ('These  criteria  will  be  uniquely  designed  to 

assist  you  in'); 
gotoxy  (1.6) ; 
writs  ('resolving  your  current  problem,  whatever  it 

mi ght  be.   '  )  ; 
gotoxy  (1,8); 
write  ('Instructions,  specific  to  ssiczh    portion  of  the 

program,  may  '); 
gotoxy  (1,13); 
write  ('be  called  at  any  time  by  pressing  the  <F— 1> 

("HELP")  key. ') ; 
gotoxy  (1,12); 
write  ('Communication  between  "committee  members"  is 

accompl i  shed ' ) ; 
gotoxy  (1,14) ; 
write  ('via  the  "Chatterbox",  an  electronic  notepad 

whi  ch  is    '  ) ; 
gotoxy  (15,16) ; 

write  ('<PRESS  ANY  KEY  TO  CONTINUE?'); 
repeat  until  keypressed; 
cl r scr ; 
gotoxy (9,1 ) ; 

writeC*  INTRODUCTION  ?<  INFORMATION  (continued)  *'); 
gotoxy  (1,4); 


write  ('called  by  the  <F— 2>  key.    An  extended 

explanation  of  the  '); 
got ox y  (1,6) ; 
write  ('problem  on  which  you  are  working  may  be  seen 

by  pressing  ' ) ; 
gotoxy  (1,8) ; 
write  ('the  <F— 3>  key.   Specific  information  for  the 

use  of  these ' ) ; 
gotoxy  ( 1 , 10> ; 
write  ('may  be  found  on— screen  at  the  bottom  of  each 

flash— up  box. ' ) ; 
gotoxy  (4, 12) ; 
write  ('TOUCHSTONE  proceeds  through  three  levels  of 

criteria  ' ) ; 
gotoxy  (1,14); 
write  ('development.   At  the  end  of  each  level,  the 

individual   ' ) ; 
gotoxy  (15,16); 

write  ('<PRESS  ANY  KEY  TO  CONTINUED- '  )  ; 
repeat  until  keypressed; 
clrscr ; 
gotoxy (9,1)  ; 

writeC*  INTRODUCTION  &  INFORMATION  (continued)  *'); 
gotoxy  (1,4); 
write  ('criteria  are  combined  for  group  decision  and 

editing.   Once   '); 
gotoxy  (1,6) : 
write  ('there  is  agreement  on  this  level  of  criteria, 

TOUCHSTONE") ; 
gotoxy  (1,8); 
write  ('moves  on  to  the  next  level  and  the  next  until 

the  THIRD') ; 
gotoxy  (1,13); 
write  ('level  has  been  completed.   Finally,  there  is 

a.n    opportune  ty  '  )  ? 
gotoxy  (1,12); 
write  ('to  edit  the  completed  list.   This  list  is  then 

ready  for  use'); 
gotoxy  (1,14); 
write  ('with  a  DSS  to  evaluate  the  specifics  for  each 

criterion. ' ) ; 
gotoxy  (15, 16) ; 

write  ('<PRESS  ANY  KEY  TO  CONTINUE:.-'); 
repeat  until  keypressed; 
end;   Cif  CH  =  YJ- 
cir scr ; 
gotoxy (IS, 1) ; 

writeC*  FILE  INITIALIZATION  *'); 
gotoxy  (1,4) ; 
write  ('First,  before  you  start,  I  need  some  vital 

information:       ')? 
gotoxy  (7,6) ; 

write  ('On  which  drive  are  the  HELP  files  located:   '); 
gotoxy  (5,3) ; 
write  ('       DRIVE:   A      <Default:   Drive  A>  '); 
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gotoxy  (5,11) ; 

write  ('On  which  drive  are  the  committee 

-Files  located:   '); 
got ox y  (5,13) ; 

write  ('       DRIVE;   3      Oefauit:   Drive  3>  '); 
ACCURATE  :=  raise; 
repeat 

got ex y  (13,3); 
repeat 

read  (kbd  nCH)  ; 
if  CH    in  C'a'.-'h'D  then 
CH  :=  chr(ord(CH)  -  32); 
until  (CH  in  C ' A ' . . 'H ' ,#133 ) ; 
if  CH  =  chr (13)  then 

CH  : =  ' A  '  ; 
write(CH) ; 
HELPDRIVE  :=  CH; 
got ox v  (18,13); 
repeat 

read (kbd  mCH) ; 

i-f  CH    in  C'a'..'hl  then 

CH  :=  chr(ord(CH)  -  32); 
i-f  (HELPDRIVE  =  'A')  and  (CH  =  'A'}  then 
CH    : =    '  ; 
until  (CH  in  C ' A ' , . 'H ' , #133 ) ; 
i-f  CH    =  chrilZ)     then 

CH    :  =  '3'; 
ririta  (CH)  ; 
FILEDRIVE  :=  CH; 
gotoxy  (3, 16) ; 

write  ('Is  the  above  information  accurate?    Y'>; 
gotoxy (45, 16) ; 
repeat 

read (kbd,CH) ; 
until  \CH    in  C .'Y  '  ,  'y  '  ,  -'N'  ,  .'n  '  ,#133)  ; 
i -f  CH  in  L  '  y  '  ,  '  n  '  3  then 

CH  :=  chr(ord(CH)  -  32); 
wr 1 1  e ( CH ) % 
delav (230) ; 
if  CH    in  C ' Y ' , 'y ' , #133  then 

ACCURATE  :=  true 
else  begin 

gotoxy ( 1 , 16) ; 
clreol : 

gotoxy  (18,3);   write  ('A') 5 
got ox v  (18,13);  write  ('8'); 
end;   -Celse/if  CH3- 
until  ACCURATE; 
end; 
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FILE 
WRITTEN  BY 

PURPOSE 


FILTERC.LIS 

Mike  Nee ley 

Procedure  I: 

Criteria  Filter  Proqram)  written  as  a  part 


it    Bob  Wooldridge.  May, 36 
brary  fcr  TOUCHSTONE  (COOP 


at  a  tmesis  tor  a 


lasner  01 


science 


n 


f.-i 


omputer  Systems  Management,  Naval 


CONTENTS 


Postgraduate  School ,  Monterey, 
VERIFYCODE 


,ai  x  farm  a 


( #*****************************#****#*#***#**********#***** ) 


PROCEDURE 
WRITTEN  BY 
PURPOSE 

PARAMETERS 
EXTERNAL 

NEEDS 


VERIFYCODE 

Mike  Neel  ey  S<  Bob  Wooldridge,  May,S6 

Checks  to  see  i-f  user  name  and  code  are 

val  id 

input:  NAMECODE  :  array  CI..  3  j  o-f  char; 


AUTHORITY 


char  ; 


procedure  VERIFYCODE; 


var 

NAME_OK,  CODE_OK 

CONTINUE,  MASTER 
INITIALCHECK 
COUNTER,  TRIES, 
LASTLINE 

•J     1    K  ,  L  ,    X 

WORKFILE 

CHECKFILE 

CHECKNAME 

CHECKCODE 

CODEMASTER 

CODENAME 

CODEWORD 

SAVE! 


:ne 

templine 


Pool  ear* ; 

boolean; 

integer; 
integer; 
char; 
text; 

stringC 14  3  3 
array  CI. .33 
array  El. .S3 
arrayC 1 . . 853 
array C 1 - , 353 
array C I . . 353 
array l 1 . . S53 
CODE ARRAY; 


of 

o-f 
of 
of 
of 
of 


char; 
char; 
char; 

stringC 33 ; 
string C33 ; 
stringC 123 ; 


procedure  GETANSWER  <A,B,C,D  :  char); 

(solicits  an  answer  from  the  user 3- 

begi  n 
repeat 

read (kbd, CH)  ; 

if  CH  in  CA,B3  then 

CH  :=  chr <ord<CH)-32) ; 
until  CH  in  CC,D,#133; 
^r:  be  (CH)  ; 
end;     (procedure  SETANSWER3 

procedure  GETANS; 
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Csdits  an  answer  -from  the  user 3- 

beqin 
repeat 

read (kbd , CH) ; 
i  f  CH  in  C  *a  * . .  *z ' 1    then 
CH  :=  chr (ord (CH>-32) ; 
until  CH  in  C  *  A  '  .  .  '  Z  '  ,  *  ',#133; 
end;     {procedure  GETANS3- 

procedure  CHECK ANSWER < WR I TECH  :  char); 
Cgets  code  input} 

begin 

CHECKCODEC COUNTER 1     :=  CH; 

if  not (CHECKCODEC 13  in  C '     ',#131)  then  begin 
write  (WRITECH); 
X  :=  X  +  i; 
if  CH  =  #13  then  begin 

for  L  :=  COUNTER  to  a  do 

CHECKCODEC L3  :=  '   ; 
COUNTER  :=  8; 
end;    Cif  CH=#135 
COUNTER  :=  COUNTER  +  1; 
end;  -Cif  not  checkcodeD 
and;   (procedure  CHECKANSWER3- 


procedure  CHECKINITIALS  (XCOORDINATE, 

YCOORDINATE  :  integer); 
(checks  to  see  if  initials  &re    valid} 

begin 

CHECKNAMEE COUNTER 1     •=    CH; 

if  not < CHECKNAMEE 1 j  in  L'     ',#132)  then  begin 
write  iCH) ; 
X  :=  X  +  1: 
if  CH    =    #13  then  begin 

far  L  :  =  COUNTER  to  3  do 

CHECKNAMECLH  :=  '  '; 
COUNTER  :=  3; 
end;   Cif  CH=#13> 
COUNTER  :=  COUNTER  +  1; 
end; 

NAMECHECK  :=  CHECKNAME; 

if  (COUNTER  =  4)  and  ((NAMECHECK  =  ' 1ZQ ' )  or 
(NAMECHECK  =  'ZZV')  or  (NAMECHECK  =  'ZZW")  or 
(NAMECHECK  =  'ZZX')  or  (NAMECHECK  =  'ZZY')  or 
((NAMECHECK  =   ZZZ')  and  INITIAL-CHECK))  then  begin 
COUNTER  :=  1; 
got ok  y(14,16); 

write < 'SORRY,  THESE  INITIALS  RESERVED!'); 
sound  <4000)  ;  del  ay  (5213  5  ;  nosound; 
delay (150B) ; 
got: ox  y  (14,16); 
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write (  '  )  ; 

got ox y (XCOORDINATE,YCOGRDINATE) ;  write ( '*-*■*') ; 
X  :=  XCOORDINATE; 
end;   Cif  NAMECHECK  =  '  ZZZ  '  > 
end;    Cproceaure  CHECK INITIALS] 


begin   {procedure  VERIFYC0DE3- 

{ini tial ize} 
X  :  =  3 1 ; 
COUNTER  :=  i; 
AUTHORITY  :=  'F'; 
CODE_OK  :=  -False; 
TRIES  :=  1; 
CHECKFILE  :=  concat (FILEDRIVE,  ': TOUCH. ZZV ') ; 

tread  -file} 
assign (WORKFILE , CHECKFILE) ;  {Get  -file  of  codes] 

reset  (WORKFILE) ; 
LASTLINE  :=  I; 

{Read  -file  and  assign  parts  of 
file  to  code  information] 
while  (not  so-f     (WORKFILE))  and  (LASTLINE  <  170)  do  begin 

read in  < WORKF I LE , SA VEL I NE C L ASTL I NE 3 ) ; 

TEMPLINE  5=  DECODE (SAVELINECL ASTL INE3 ) ; 

CODEMASTERC LASTLINE 3  ;=  copy  (TEMPLINE, 1 , 1 > ; 

CQDENAMEC LASTLINE 3  :=  copy  (TEMPLINE, 2, 3) ? 

CODEWORD C LASTLINE 1     s  =  copy  (TEMPLINE, 5, 3) ; 

LASTLINE  :=  LASTLINE  +  1; 
end;   {while  not  eof]- 
LASTLINE  :=  LASTLINE  -  1; 
close (WORKFILE) ; 

clrscr ; 

if  LASTLINE  =  1  then  begin 

{instructions  to  new  prob.  inv.j 
clrscr; 

got ox y  (13,1); 

write  ('GREETINGS,  NEW  PROBLEM  INVOCATOR ! ' ) ; 
got ox y  (5,3) ; 
write  ('As  the  person  initiating  this  copy  of 

TOUCHSTONE ,  '  )  ; 
gotoxy  (5,4) ; 

write  ('you  ars    designated  as  the: '); 
gcccx  v  \  i— i ,  1—/  /  ; 

write  (r  "Problem  Irtvocator". '); 

gotoxy  (5,6) ; 
write  ('As  such,  you  are  tine  one  to  define  the 

prob I  ems,  '  )  ; 
gotoxy  (5,7) ; 
write  ('select  the  committee  membership,  and  perform 

the ' ) ; 
gotoxy  (5,3) ; 

write  ('various  other  maintenance  functions.   You  may, 
of  ' )  ; 
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got ox y  (5,9) ; 

write  (course,  designate  other  problem  invocators  it 

you  '  ) ; 
got ox y  (5, 10) ; 
writs  ("so  desire,  or  maintain  control  by  yourself. 

The ' ) ; 
got ox y  (5,11) ; 
write  ('choice  is  yours.'); 
gotoxy  (5, 13) ; 
write  ('For  log— on  purposes,  I  will  need  to  know 

your  '  ) ; 
gotoxy  (5, 14) ; 

write  (initials  (a  maximum  of  3):    #**  '); 
X  :=  34;  INITIALCHECK  :=  true; 
repeat    {until  CONTINUE} 
COUNTER  :=  1; 

{get  user's  initials} 
repeat 

gotoxy (X , 14) ; 
GETANS; 

CHECK INITIALS (34 , 14)  ; 
NAMESTRING  :=  NArtECHECK ; 
until  COUNTER  >  3; 
gotoxy  (14,16); 

write  ("Are  these  initials  correct?   Y"); 
gotoxy  (43,16); 
3ETANSWER ( ' y ' , ' n ' , ' Y ' , ' N ' ) ; 
i-f  CH    in  l'Y',#133  then  begin 
CONTINUE  :=  true; 
C0DENAMEC2II  :=  NAMECHECK; 
end    {if  CHI 
else  begin 

X  :=  34;  gotoxy (X , 14) ;  write  ('****); 
CONTINUE  :=  false: 
end; 
until  CONTINUE; 
clrscr ; 
gotoxy  (3,1) ; 
write  (Thank  you  -for  yGur  initials.   You  will  need  to 

use  ' ) ; 
gotoxy  (3,2) ; 
write  ('these  to  identify  yourself  to  the  computer 

each  time ' ) ; 
gotoxy  (Z^Z) ; 
write  ('you  log  on.   When  you  do  log  on  to  ^DUCHSTCNE, 

you  ' ) ; 
gotoxy  (3,4) ; 
write  ('will  need  to  use  the  Problem  Invocator 

Password  if  '  ) ; 
gotoxy  (3,5); 
write  ('you  wish  to  identify  yourself  as  the 

pr  cbl  em  '  )  5 
gotoxy  (47,5) ; 
wr i  te  ( '  i  nvocator .  ' )  ; 
gotoxy  (3,6)  ; 
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write  ('For  this  version  of  TOUCHSTONE,  that  password 

is:  '  )  ; 
got  ox  y  (2(2,7)  ; 

wr  i  ta  ( ' **#  *** ' } ; 

gctoxy  (24,7);  textcoior (yel 1 ow) ;  textbackground (red ) ; 
write  ('   ',  CODEWORD  Ci  I! ,  '    '); 
textcoior (whi  te) ;  textbackground (blue) ; 
gotoxy  (3,9) ; 
write(' (You  should  memorize  this  password  for  future 

use.   If  '  )  ; 
gotoxy  (3,10); 
write  ('you  wish,  you  have  the  option  to  change  it  in 

the  ' ) ; 
gotoxy  (3,21) ; 
write ( 'Problem  Invocator  Menu.)   If  you  prefer  to  log 

on  as ' ) ; 
gotoxy  (3, 12) ; 
write('a  committee  member  instead,  you  will  need  a 

personal ' ) ; 
gotoxy  (3, 1Z) ; 
write  ('password  of  your  own.   This  word  (letters 

only)  can  be ' ) ; 
gotoxy  (3,14) ; 
write  (up  to  3  letters  in  length:    **«*****') 5 


Cget  problem  invocator 's  codeword! 
repeat  Cuntxl  CONTINUE! 
CONTINUE  :=  false; 
repeat     Cuntil  COUNTER  >8> 
gotoxy (X , 14) ; 
GETANS; 

CHECKANSWER  <Cn)  ; 
until  COUNTER  >  3; 
gotoxy  (15,16); 

write  ("Is  this  code  word  correct?    Y'); 
gotoxy  (44,16); 
3ETAN3WER  ( '"  y  "  ,  n  '  ,  '  Y  ''  ,  '  N  '  )  ; 
if  CH  in  l'Y',#13j  then 

CONTINUE  :=  true 
else  begin 

gotoxy  (32,14);  write  ('******#*'); 
X  :=  32;  COUNTER  :=  1; 
CONTINUE  :=  false: 
end; 
until  CONTINUE; 
USERCODE  :=  CHECKCODE; 
CODEWORD C 2 J  :=  USERCODE; 
C0DEMASTERC2J  :=  'M'; 
LASTLINE  :=  3; 

Cget  committee  member  i nf ormati onJ 
clrscr ; 
gotoxy ( 12,2)  ; 
writeC**   COMMITTEE  MEMBER  INFORMATION   **  '  }  ; 
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gotoxy (4,4) ; 

write  ('Now  is  a  good  time  to  input  the  initials  o-f 

those  '  )  ; 
got ok y (4,5) ; 
write  (pecDle  you  know  will 

need  to  have  access  to  ' ) ; 
got ox y (4,6) ; 
write  ('TOUCHSTONE.   Please  input  their  initials  and, 

for ' ) ; 
got ox y (4,7) ; 
write  (each,  designate  whether  that  individual  is  to 

be  a  ' )  ; 
gotoxy (4,8) ; 
write  ( ' CP3roblem  invocator  or  merely  a  CCUommittee 

member. ' ) ; 
gotoxy  (4,9) ; 

write  ('(The  default  choice  is  Committee  member.)  '); 
gotoxy  (4,11) ; 
write  ('Initials:  Access  level  (P/C) ; 

LCI ' ) ; 
gotoxy  (17, 15) ;   wri  te  ( '  (Wri  te  * ZZZ  *  to  exit)  * ) ; 
repeat    Cunti!  NAMECHECK  =  ZZZJ 
COUNTER  :=  1;  NAME_OK  :=  true; 
X  :=  15;  gotoxy (X, 11) ;  write  ('****); 
repeat    {until  CONTINUE} 
{get  user's  initials] 
repeat    Cunti 1  COUNTER  >3J 
gotoxy (X, 1 1) ; 
GETANS; 

INITIALCHECK  :  =  false; 
CHECKINITIALS(15,11) ; 
INITIALCHECK  :=  true; 
until  COUNTER  >  3; 
gotoxy  (14,13); 

write  <  "Are  these  initials  correct?   Y'); 
gotoxy  (43,13); 
GETANSWER ( ' y ' , ' n ' , ' Y ' , ' N ' ) ; 
if  CH    in  C'Y',#133  then  begin 
L  :=  1; 

while  not (L>LASTLINE>  and  NAME_OK  do  begin 
if  C0DENAMECL3  =  NAMECHECK  then 

NAME_OK  :=  false 
el  se 

NAME  OK  :=  true;     {check  user's  initials 

for  match} 
L  :=  L  -#•  1; 
end;   {while  not  L>LASTLINE>; 
if  NAME_OK  then  begin 
CONTINUE  :=  true; 

C0DENAMECLASTLINE3  :=  NAMECHECK; 
end    {if  NAME_0IO 
else  begin 

gotoxy (14,16); 

write(  'SORRY,  THESE  INITIALS  ARE  USED!'); 

sound (40GO) ; del  ay  <50Q) ; nosound; 
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delay (1530) ; 
gotoxy (14,16) ; 

wri te (  ' >  5 

gotoxy (15, 11 ) ;  writai '***') ; 
X  :=  15;  COUNTER  :=  1; 
CONTINUE  :=  false;  NAME_OK  :=  true; 
end;   -Celse] 
end    Cif  CH2 
else  begin 

X  :=  15;  COUNTER  :=  1; 
CONTINUE  :=  -false; 
end; 

gotoxy  (14,13); 

write  ( '  ' )  ; 

until  CONTINUE; 

if  NAMECHECK  <>  'III'    then  begin 
gotoxy  (52,11);  write  (*C); 
qotoxv C 52, 113 ; 
GETANSWER ( *  c ' , * p ' , ' C  * , ' P ' )  ; 
if  CH    in  C'C',#133  then 

CODEMASTERCLASTLINED  ;=  'W 
el  58 

CODEMASTERC LASTLINE 3  :=   M'; 
CODEWORD CLASTL I NE j  :=  '  '; 

end;     Cif  NAMECHECK  <>  '  ZZZ'J 
LASTLINE  :=  LASTLINE  +  1; 
until  NAMECHECK  =  'ZZZ'; 
LASTLINE  :=  LASTLINE  -  1; 

assign (WORKFILE,CHECKFILE) ;  {Rewrite  file  of  codes} 
rewrite  (WORKFILE) ; 
for  K  :=  1  to  LASTLINE  do  begin 
TEMPLINE  := 
concat (CODEMASTERCK3,CODENAMEEK3,CODEWORDEK3  3 ; 
SAVEL I NE  C  ]<  1     ;  =  ENCODE  ( TEMPL I  NE  >  ; 
wri teln (WORKFILE, SAVELINECK3)  ; 
•sndz        -Cfor  J3- 
c 1 ose ( WORKF I LE )  ; 
AUTHORITY  ;=  '  T  '  ; 
INVOCATCR  :=  ' M *  ; 
end    Cif  LASTLINEj- 

else  begin  {Other  than  new  invocator} 

X  :=  40; 
got ox v (16,4) ; 

wr i  t e  < ' **   S I SN-ON  I NFORM AT  I ON   ** ' ) ; 
got  ox  y  ( 1 5  ,  7 )  ; 

write  ('What  3tre    your  initials?   ■**-#'); 
repeat     Cuntil  NAME_OK  or  TRIES=3J 

CHECKNAME  :=  '     ';   NAME_OK  :=  false; 
Cget  user's  initial s2 
repeat 

gotoxy (X ,7) ; 
GETANS; 

CHECKINITIALS(40,7)  ; 
NAMESTRING  :=  NAMECHECK; 
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until  COUNTER  >  3; 

•Ccheck  input  name  aqainst  names  on  -file} 

J  :=  1; 

while  not (J>LASTLINE)  and  not  NAME_OK  da    begin 

if  CDDENAMECJ3  =  NAMECHECK  then 

NAME__OK  :=  true;         Ccheck  user's  initials 

for  match  J- 

•J  :  =  J  +  1 ; 
end;   C while  not  J>LASTLINE> ; 
if  not  NAME_OK  then  begin 

COUNTER  :=  1; 

X  :=  43; 

TRIES  :=  TRIES  +  1; 

got ox y (15,14) ; 

write ('THESE  INITIALS  NOT  ON  FILE'); 

sound (4000) ; del  ay (500) ;nosound; 

delay (1000) ; 

gotoxy (15, 14) ; write  €  *  '); 

got  ox  y  (40,7)  ;  write1''***'); 
end;     Ci-f  not  NAME_QKJ 
J  :=  J  -  1; 
until  NAME_OK  or  (TRIES>3) ; 

Ccheck  for  correct  user  oasswardl 
if  NAME_OK  then  begin 

if  (CODEWORDCJj  =  '  ' )  or 

( CODEWORD  C  J  I!  =  '****#***') 
then  begin 

if  (CODEWORD CJ:i  =  '  *)  then  begin 

gotoxy (6,9) ; 
write ('As  a  new  TOUCHSTONE  user, 

you  will  need  ' > ; 
write ('a  password. '); 
got ok v (6,10) ; 

write('"What  would  you  like  for  your  password? 
***-*-****  '  )  ; 
end        Cif  CODEWORD  C  J  33- 
else  begin 

got ox v (6,9) ; 

write('Your  Committee  Member  password 

has  been  ' ) ; 
wri te ( 'erased.   What'); 
gotoxy (6, 10) ; 
write ('would  you  like  for  your  new  password? 

end;   telse/if  CODEWORD  C  J  3  3- 

gotoxy (19, 12) ; 

wri te ('  (Maximum  of  8  letters)'); 
X  :=  45;  TRIES  :=  0;  COUNTER  :=1; 
•Cget  user's  codewords- 
repeat  Cuntil  CONTINUE} 

CONTINUE  :=  false; 

repeat     Cuntil  COUNTER  >3j 
gotoxy (X , 10) ; 
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GETANS; 
CHECKANSWER (CH) ; 

until  COUNTER  >  8; 

got  Dxy  (15,16); 

write  < ' Is  this  code  word  correct?    Y*>; 

got ox v  (44,16); 

GETANSWER ( ' y ' , ' n ' , ' Y ' , ' N ' ) 5 

i-f  CH  in  C'Y',#13j  then 

CONTINUE  :=  true 
else  begin 

gotoxy  (45,13);  write  ('********'); 
X  :=  45;  COUNTER  :=  1; 
CONTINUE  :=  false; 
end; 
until  CONTINUE; 
USERCODE  :=  CHECKCODE; 
CODEWORD: J 1  :=  USERCODE; 
TEMPLINE  := 

concat ( CODEMASTERC J  lUCODENAMEEJl, CODEWORD C J 1) ; 
SAVEL 1 NE  l J 1     : =  ENCODE ( TEMPL I NE  > ; 
assign (WORKFILE,CHECKFILE) ; 

CSet  -file  of  codes} 
rewrite  (WGRKFILE) ; 
tor  K  :=  1  to  LASTLINE  do  begin 
writeln (W0RKFILE,SAVELINEEK3 ) ; 
end;   {for  JU 
close  (WQRKF-X'LE? s 
AUTHORITY  :=  'T"; 
gotoxy ( 15, 16) ;  clreol; 
i-f  CODEMASTERCJl  =  'M'  then  begin 
gotoxy (12, 14) ; 

write  ('Which  menu  do  you  wish  to  use  today?'); 
gotoxy (8,15) ; 
write  ('(P)roblem  invocator  or  (C)ommittee 

memder :   *-* )  ; 
gotoxy (52, 15) ; 

GETANSWER  ('p','c','P','C'); 
if  Cbi    =       P'  then  begin 
gotoxy (1,9);  clreol; 
gotoxy ( 1 , 13) ;  clreol; 
gotoxy ( 1 , 14) ;  clreol; 
gotoxy ( 1 , 15) ;  clreol; 
gotoxy  (6, 10) ; 
write('What  is  your  Problem  Invocator 

password7     -*#******  '  )  ; 
X  3=  50;  TRIES  5=  1;  COUNTER  s=  Is 
repeat    Cuntil  CODE_GK  or  TRIE3=3) ; 
■[get  user's  codewords- 
repeat      Cuntii  COUNTER  >S3- 
gotoxy (X , 10) ; 
GETANS; 

CHECKANSWER ( ' M ' 3 ; 
until  COUNTER  >  8; 
delay (250) ; 
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tehee k  usercode  against  codewords  on  file} 
USERCODE  :=  CHECKCODE; 

if  (CODEWORD ClI!  =  USERCODE)  then  begin 
CODE_QK  :=  true; 
INVOCATOR  :=  'M'; 
AUTHORITY  :  =  'T'; 
end    Cif  MASTER 3 
else  begin 

AUTHORITY  :  =  "  F  '  ; 
COUNTER  : =  1 ; 
X  :=  50; 

sound (4000) ; delay (500) ; nosound; 
got ox y (19,14); 

write ( 'INCORRECT  ACCESS  CODE'); 
delay ( 1000) ; 
gotoxy (19, 14) ; 

wri  te ( '  '  )  ; 

gotoxy (50, 10)  ;  write(  '******** ' ) ; 
TRIES  :=  TRIES  +  1; 
end;    Celse} 
until  CODE_OK  or  (TRIES>3) ; 
end;   Cif  ch  =  'P '  J 
delay (50G) ; 
end;     Cif  CODEMASTERC 311 
end    Ci-f  NAME _0K} 
else  begin 

if  CODEMASTERC J 1    =     ' M '  then 

MASTER  :=  true   (Person  signing  on  i s  a  problem] 
else  (invocator} 

MASTER  :=  false; 
gotoxy (6,10) ; 
write('What  is  your  user  (or  invocator)  password? 

-***•*-**-*■*  '  )  ; 
X  :=  50;  TRIES  :=  1;  COUNTER  ;=  1; 
recast    Cuntil  CODE_OK  or  TRIES=3) ; 
Cget  user's  codeword} 
repeat     Cuntil  COUNTER  >B2 
gotoxy (X , 10) ; 
SETANS; 

CHECKANSWER ( ' M ' ) ; 
until  COUNTER  >  8; 
delay (250) ; 

Ccheck  usercode  agai-nst  codewords  on  file} 

USERCODE  :=  CHECKCQDE; 

if  (CDDEWCRDCuj  =  USERCODE)  then 

CODE_OK  :=  true 
el  se 

if  MASTER  and  (C0DEW0RDC13  =  USERCODE)  then 
begin 

CODE_0K  :=  true; 
INVOCATOR  :=  ' M '  ; 
end    Cif  MASTER} 
else  begin 

COUNTER  :=  1; 
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X  :=  50; 

sound (4000) ; del  ay (500) ; nosound; 
got ox  y  C 1 9 ,  1 4 ) ; 

*ri te (  -  INCORRECT  ACCESS  CODE ' ) 5 
del  ay  < 1000) ; 
qotoxy ( 19, 14) ; 

wri te  i  '     ) ; 

goto;;v  (50, 10) ;  write(  '*"**■**-*■**  * )  5 
TRIES  :=  TRIES  +  1- 
end;     -Cel  se3- 
until  CODE_QK  or  CTRIES>3) ; 
end;    £else> 
end;   £if  NAME_0K3- 
if  CODE  JDK  then 

AUTHORITY  :=  'T'; 
end;    Cel  se  -  i-f  LASTLINE=1> 
end;    (procedure  VERIFYC0DE3- 
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{FR0NTEND.LIB3- 


procsdurs  NoFiles; 


* 

* 

* 

* 

* 
* 

* 
* 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 
GLOBAL  VARIABLES 
ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 
EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


NOFILES 

BTOUCH.PAS 

NONE 

STOPPROG 

NONE 

NONE 

NONE 

NONE 


WRITES 
SCREEN 


'NO  f: 

AFTER 


LE3  ON  DISK 
THE  CALLING 


JN  THE 


PROCEDURE  CHECKS  THE  FILE. 


* 

* 
* 

* 
* 


****************************^*******************^*-+******* 


begin    Cnofiles} 

ii    not  (stopprog)  then 

begin     Ci-f  not  stopprog! 
gotoxv (21 ,9) ; 
tsxtbackgraund (red) ; 
write( '  No  Files  an  disk 
delay (4000)  ; 
textbackground (blue) ; 
stopprog  :=  true; 
end;       Cif  not  stopprog 3- 
end;      Cno-fi  ies> 


>  ; 


procedure  warning; 


(***********************#***#********^**************^***^**^ 


*  PROCEDURE 

*  SUPPORTS  PROGRAM 

*  LOCAL  VARIABLES 

*  GLOBAL  VARIABLES 

*  ARRAYS  USED 

*  FILES  ACCESSED 

*  EXTERNAL  CALLS 

*  EXTERNAL  FILTERS 

*  CALLED  FROM 

*  PURPOSE 


WARNING  * 

BTOUCH.PAS  * 

NONE  * 

NONE  * 

NONE  * 

NONE  * 

NONE  * 

NONE  * 

DISPLAYIT,  * 

WRITES  'FILE  NOT  FOUND'  AFTER  * 

PROCEDURE  CHECKS  FILE  FOR  RECORD.  * 


begin  -CwarningJ 
got ox  y  <21 , 1 5) ; 
textbackground (red) ; 

writsi'  File  not  -found  '); 
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dei  ay  (4000)  ; 
textbackground  (bl  lib)  ; 
gctoxy (21 , 15) ;   clreol; 

end;      {warninq} 


procedure  Displaylt; 


*  PROCEDURE 

*  SUPPORTS  PROGRAM 

*  LOCAL  VARIABLES 

*  GLOBAL  VARIABLES 

*  ARRAYS  USED 

*  FILES  ACCESSED 

*  EXTERNAL  CALLS 

*  EXTERNAL  FILTERS 

*  CALLED  FROM 

*  PURPOSE 


DISPLAY IT  * 

BTOUCH.PAS  * 

COUNTERS  * 

-* 
NONE  * 

ACTIVEPROSLEMFILE  =  'PROBS.TXT'  * 
WARNING  * 

* 

DISPLAYS  SPECIFIC  PROBLEM  AND      * 
*  MEMBERS  ASSIGNED  * 

var 

COUNTERS  :  INTEGER; 

begin    -Cdi  splay  it  J 

reset ( Acti veProblemFi le) ; 
counters  :=  i;  cirscr; 

while  not  EOF (acti veproblemfi le)  do 
begin    CWhile  Statement! 

read (Acti vePr obi emFi le,  members) ; 
i-f  (members,  problem  =  probname)  and 

(members. choice  =  alternative)  then 
counters  t~    counters  +  i- 
end;      CWhile  Statement! 
close  (acti  veproblemfi  le)  ; 
reset (acti veproblem+i Is); 
Y  :=  3;        moveover  :=  10; 

not  EOF (acti veprobl emfi 1 e>  do 
begin    CWhile  Statement! 

read (Acti  veProbl emFi le,  members) ; 
if  (members. problem  =  probname)  and 

(members. choice  =  alternative)  then 
begin 
if  counters  >  10  then 

begin    Cif  counters  >  10! 

if  (members. problem  =  probname)  and 

(members. choice  =  alternative)  then 
begin    C2nd  if  comparing  probname! 
got ok y (10,1) ; 

writsC PROBLEM     MEMBER  '  , 
PROBLEM     MEMBER " ) ; 
stopgap  i—    true; 
got ox y (moveover ,Y); 
wri te (members. probl em) ; 
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qotox y (moveover  ■+-  12, Y); 
wri te (members. member ) ; 
Y  :=  Y  +  1; 
if  Y  =  11  then 
begin    Cif  Y 
Y  •  =  3  * 
moveover  : : 
end;      Cif  Y 
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'2; 
10} 


and; 


[2nd    if    comoarinq    arobnamej 


end 
else 

begin 


•Cif    counters 
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Cif  comparing  probname} 
gotoxy  (20, 1 ) ; 

writeC  PROBLEM     MEMBER  '  )  ; 
stopgap  :=  true; 

got ox y (20, Y) ;   write (members. probl em) ; 
got ox y (32, Y) ;   write (members. member) ; 
Y  :  =  Y  +  1 : 
end; 
end; 
end:      Cwhiie  statement} 
cl ose (acti veprobl amf i le) ; 
if  not  (stopgap)  and 
not  (stopprog)  then 
warning; 
sn.a;  Cdisolay  it! 


Cif  comparing  probname} 


procedure  Loadlt; 


* 

* 

* 
* 
* 

# 

* 

* 
# 

* 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 
GLOBAL  VARIABLES 
ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 


EXTERNAL  FIL 
CALLED  FROM 
PURPOSE 


IPS- 


LOAD  IT 

BTOUCH.PAS 

TEMPPR03 ,  REALLYTEMP 

NONE 

ACTIVEPROBLEMFILE  =  'PROBS.TXT 

NONE 

NONE 


:   THIS  PROCEDURE  LOADS  THE  ACTIVE 
PROBLEM  FILE  INTO  AN  ARRAY  FOR 
THE  PURPOSE  OF  DELETING  A  MEMBER 
FROM  A  SPECIFIC  COMMITTEE,  OR 
DELETING  A  PROBLEM  COMPLETELY.      * 
THE  PROCEDURE  DISPLAYS  AL^  * 

RECORDS  SO  THAT  THE  USER  CAN  VIEW  * 
WHAT  PROBLEMS  HE  MAY  WISH  TO  * 
MANIPULATE.  * 


var 


real 1 ytemp 


stri  ngb; 
strinqS; 


begin    -CLoadltj- 

clrscr;  Y  :=  3; 

X  :=  i;       tempprob  :  =    '; 

Assign  (acti  veprobl  emf  i  ie, 

concat  (-f  i  ledn  ve,  ' :  probs.  txt  '  )  )  ; 
Reset ( Act i  vsProblemFi Ie); 

i-f  (f  i  iesize  (acti  veprabl  em-fi  ie)  )  >  £3  then 
begin    C I -F  the  filesize  statements 
wri te  <  PROBLEM ' ) ; 
tempprob  :=    '  ; 

while  not  EOF  (Acti  vePr obi  emFi  1  e)  do 
begin    CWhile  statement > 

read  < Acti vePr obi emFi ie, members) ; 
reallytemp  := 
concat (members. prcbi  em+members. choi  ce) ; 
i-f  (tempprob  <>  reallytemp)  and 

(members. choi ce  =  alternative)  then 
begin 

gotoxy (X  ,  Y) ; 
wri te (memcers. probi em) ; 
Y  :  =  Y  +  1 ; 
end; 
tempprob  :=  reallytemp; 
if  Y  >  12  then 
begi  n 

X  •  =  X  +-  1 "?  ■ 

gotoxy (x  ,  1  > ;   wri  te ( ' PROBLEM ' ) ; 
end; 
end; 

close (acti vepr obi  emf i  is); 
end;      Cl-f  the  filesize  statement) 
end:      CLoadltj- 
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procedure  DsieteAPi-abiem; 


* 

* 

* 
* 
* 

* 
* 
* 
* 
* 

* 
* 
if 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 


DELETEAFROBLEM 
3T0UCH.FAS 


SHORTNAME , 


:mpmember,  tempi. 


BAL  VARIABLES 


Ul_U 


ARRAYS  USED 
FILES  ACCESSED 

EXTERNAL  CALLS 
EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


CHECKED .  COUNTS 

2.  INPUTSTRING,  STOPPROB, 


MEMBER! 


* 

* 

* 

* 
* 
* 
* 

* 
* 

* 


PRGBNAME,  FILEDRIVE,  NEWSTRINS 

ALTERNATIVE 

NONE 

TEMPROBLEMFILE,  CHECKFILE, 

ACT I VEPROBLEMF I LE 

LOAD IT,  WARNING,  NOFILES 

FILTER9-LIB 

PROBMAN I PULAT I ON 

THIS  PROCEDURE  ALLOWS  THE  USER 


TO 


scl-Ll. 


PROBLI 


DISPLAYED 


THE  SCREEN  FROM 
'LOADIT'  FOR  DELETE I ON.   IF 
USER  CHANGES  HIS  MIND  ABOUT 
DELETING  A  PROBLEM,  HE  ONLY 
TO  PUSH   THE  RETURN  KEY  AND 
FILES  WILL  BE  DELETED. 
CONFIRMATION  OF  THE  DELETED 
PROBLEM  IS  GIVEN  AND  THE 
REMAINING  PROBLEMS  ARE  AGAIN 
DISPLAYED. 


m 

:E 
THE 

HAS 
NO 


var 


SHORTNAME 

TEMPPROBLEMF I LE 

TEMPMEMBER 

TEMP  i 

CHECKFILE 

CHECKED 

COUNTS 


STRINGC73; 

■file  of  PROBREC; 

PROBREC; 

3TRING12; 

TEXT; 

BCOLEAN; 

INTEGER; 


begin    CDeieteAPrabiemj- 

checked  :=  -false;       counts  ;=  0;       Loadlt; 

Reset  <Acti veProblemFi le)  ; 

z  :=  (-f  i  lesize  (acti  veproblem-f  i  le)  >  ; 

close  (acti  veprcbl  em-f  i  le)  ; 

1+   z  >  0  then 

begin    -Cl-f  the  -fi  lesize  statement} 
got ox y (1,12) ; 
wri  te  (  'CAUTION  !!  !   Entering  a  problem  name  -from 

this  list,  will'); 
got  ox  y  (1 ,  13)  ; 
wri te (  "delete  ALL  -files  -with  that  name,  ', 

To  quit  without  deleting'); 
gotoxy C 1 , 14) ;       write ('a  probl em, press  F13. "); 
repeat 

gotoxy (1,16); 
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write( 'Enter  the  problem 

you  wish  to  delete:    '); 
repeat 

getthekeys ( Inputstri ng ,7) ; 

short  Name  :=  inputstri  rig; 

got  ox  y  (413, 16)  ; 
until  (ord (shortnameE 1 1 )  >  32)  or  (stopprog) : 

p  rob  name  ;=  shortiMameE  i  1 ; 

while  (shartnameEa 2    <>  chr <32>)  and  (a<3)  do 
begin 

probname  := 
cone at ( probname, short name Ca 1 ) ; 
a  :  =  a  +  1 ; 
end; 
if  not  stopprog  then 

begin     -Cif  not  stopprog} 
Assign (acti veprobi  emf i  is, 
:oncat  (f  i  ledri  ve,  *  :probs.  t;<t  ' )  )  ; 
reset (Acti  veProbl emFi 1 e) ; 
Assign  (tempprcblemf i  Is, 
concat (f  i ledri ve  ,  ' : tempprob. txt  '  > ) ; 
rewr i te < tempProbi emFi le) ; 
while  not  EOF (acti veprobiemfi 1 e)  do 
begin    CUihiie  Statements 

read (Acti vePr obi emFi le,  members; - 
tempmember  :  =  members; 
if  (members. probi em  =  probname)  then 
begin 

NewString  := 
probname+al ternat i  ve+ 
'. ' +members. member ; 
Assign (kriteriaf i le, 
concat (fi ledri ve, " :  ', 

newstri  ng)  )  ; 
C*I— J 
erase (Kri teri aFi  le)  ; 

c*r+3- 

if  IQresuit  =  3  then 
checked  :=  true; 
end; 
if  (members. probl em  <>  probname)  or 
(members. choice  <>  alternative) 
"  then 
write (TempProbi  emFi le, 
tempmember) ; 
end;     {While  Statement J 
if  checked  then 

begin     Cif  checked} 

tempi  : =  probname+al ternati ve+ ' . zzq ' ; 
Assign (checkf i le, concat (fi ledri ve , ' : ' , 

tempi ) ) ; 
£  $  I  —  J 
erase (checkf i Is) ; 
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i-f  IOresult  =  0  then 

checked  :=  true; 
tempi  :=  probname+ ' . zzw ' ; 
Assign  ( check -f  i  le,  con  cat  (f  i  iedri  ve  ,  '  :  '  , 
temp  1 ) ) ; 

erase  (check-fi  le)  ; 

i-f  IOresult  =  3  then 

checked  :=  true; 
tempi  :=  prcbname+ai tsrnati vs+ ' . zzx  '; 
Assign  (checkf  ile,concat  (-f  i  ledri  ve,':  ', 
tempi ) ) ; 

erase (checkf i 1 e) ; 

i-f  IOresult  =  0  then 

checked  :=  true; 
tempi  :=  probname+ai  ternati  ve-»- '  .  zzz  '  ; 
Assign  <  check-fi  le,ccncat  (f  i  ledr i ve,  '  :  "  , 
tempi ) ) ; 

\.  4>  J.  —  J 

erase  (check-fi  le) ; 

i-f  IOresult  =  3  then 
checked  : —  true; 
end;       Ci-f  checked] 
cicse (acti veprobi emf i le) ; 
close (tempproblemfi le) ; 
erase (acti veprobi emfi le) ; 
rename  (tempprobl  em-f  i  le,  'probs. txt  ')  ; 
i-f  checked  then 
begin 

load! t ; 

qctoxv(12,14>  ; 

write ( 'The  Problem   ,  prcbname, 

has  been  deleted. '); 
del ay (3000) ; 
end; 
end;     £if  not  stopprog} 
i-f  not  (checked)  and 
not  (stopprog)  then 
warning; 
counts  :=  succ (counts) ; 
until  (checked)  or  (stopprog)  or  (counts  ':■■    2); 

anc     [If  the  -filssize  statement} 
else 

no-f  i 1 ss; 
end;      -CDel  eteAProblem} 
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procedure  CheckAProblem; 


CHECKAPROBLEM  * 

BTOUCH.PAS  * 

SHORTNAME,  COUNTS  * 

STOPGAP,  Z,  INPUTSTRING,  STOPPROG,* 
PROBNAME,  MEMBERS,  ALTERNATIVE,  Y  * 
NONE  * 

ACTIVEPRQBLEMFILE  * 

LOAD IT,  WARNING,  NOFILES  * 

FILTER9.LIB  * 

PROBMANIPULATION  * 

GIVES  AN  INVOCATOR  A  DISPLAY  OF  * 
MEMBERS  ON  A  SPECIFIC  PROBLEM  AND  * 
WHEN  THAT  MEMBER  LAST  ACCESSED  * 
HIS  PROBLEM.  * 


* 
* 

* 

* 
* 
* 

# 
* 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 
GLOBAL  VARIABLES 

ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 
EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


vsir 


SHORTNAME 
COUNTS 


STRINGC7I; 
INTEGER; 


begin    CCheckAPrabl em) 

counts  :=  0;       stopgap  s=  false;       Loadlt; 

Reset  < Acti  veProbl emFi 1  e)  ; 

z     i=     (f i lesize (act! veproblamf i 1 e) ) ; 

cl ose iacti veprobiemf i le) ; 

if   z  >  0  then 

begin    {If  the  filesize  statement} 
repeat 

gotoxy ( 1 , 12) ; 

write ( 'Entering  a  Problem  name', 
'  from  this  list  will  tell  you'); 
gotoxy (1,13) ; 
write ('When  a  member  last', 

accessed  a  Problem'); 
gotoxy (1,15); 

wri te (' Enter  the  name  of  the  Problem:    r); 
repeat 

getthekeys ( Inputstri  ng , 7) ; 
shortName  :=  input string; 
gotoxy (33, 16) ; 
if  stopprog  then 

stopgap  :  =  true; 
until  (ord  (shortnameC  1  IS )  >  32)  or  Cstopprog)  ; 
a  :=  2; 

probname  :=  shortNameC 1 1 ; 

while  (shortnameEa j  <>  chr (32) )  and  (a<S)  do 
begin 

probname  := 

ccncat (probname, shortnameEa J  > ; 
a  :  =  a  +  1 ; 
end; 
Y  ■=    3 ; 
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Reset  ( Acti  vePrabl smFi 1 e) ; 
while  not  EGF (Acti veProbl emFi 1 e)  do 
begin    Cw'hile  statement} 

read ( Act i  veProbi emFi 1 e , memoers)  : 

if  (members,  probi  em  =  prabname*  arse 

(members. choi ce  =  alternative)  then 
begin 

it  Y  =  3  then  clrscr; 

got ox y (14, 1) ; 

writeC  PROBLEM     MEMBER 

DATE  ) ; 
stopgap  :=  true; 
gotoxy(14,Y) ; 
write (members. problem) ; 
got ox y (25, Y) ; 
write (members. member) ; 
got ox y ( 34 , Y ) ; 

wri teln (members. datel i  ne) : 
Y  :=  Y  +  1; 
if  Y  >  11  then 
begin 

got ox y (16,16); 

write  ('Press  RETURN  to 

continue  ) ; 
getthekeys ( i  nputstr i  ng , 1 )  = 
clrscr;  Y  :=  3; 

end; 
end; 
end;     {While  statements 
cl  ose (acti veproblemf i le)  ; 
if  not  (stopgap)  and    not  (stopprog)  then 

warning; 
counts  :=  counts  +  1; 
until  (stopgap)  or  (counts  >  2)  or  (stopprog) ; 
if  not  (stopprog)  and  (stopgap)  then 
begi  n 

got ox y (16,16) ; 

write ('Press  RETURN  to  continue. '); 
getthekeys ( input string , 1 ) ; 
end; 
end      Clf  the  filesize  statements 


eise 

nof i 1 es; 
end;      •CCheckAPrablemj- 


199 


procedure  DeieteAMember; 


(♦it************************************************** 


DELETEAMEMBER  * 

B70UCH.PAS  * 

SHORTNAME,  FILECHECK,  MAGGIE,  * 
COUNTS,  MARGARET,  TEMPMEMBER  * 
INPUTSTRING,  Z,  STOPGAP,  STGPPROG,* 
PROBNAME,  ALTERNATIVE,  MEMBERS,  * 
NEWSTRING  * 

NONE  * 

TEMPPROBLEMF I LE ,  ACT I VEPROBLEMF I LE* 
FILTER9.LIB  * 

LOADIT,  DISPLAYIT,  NOFILES,  * 
GETTHEKEYS  * 

PERSMANIPULATION  * 

THIS  PROCEDURE  ALLOWS  THE  USER  TO  * 
SELECT  A  MEMBER  AND  PROBLEM  FROM  * 
THE  SCREEN  FROM  THE  PROCEDURE  * 
'LOADIT'  FOR  DELETE I ON.  THIS  * 
WILL  ONLY  DELETE  ONE  MEMBER  FOR  * 
THE  SPECIFIC  PROBLEM  SELECTED.      * 


* 

* 
* 

* 

* 
* 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 

GLOBAL  VARIABLES 


ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 
EXTERNAL  FILTERS 

CALLED  FROM 

PURPOSE 


var 


SHORTNAME 
FILECHECK,  MAGGIE 
COUNTS 

TEMPPROBLEMF ILE 
TEMPMEMBER 
MARGARET 


STRINGC73; 

BOOLEAN; 

INTEGER; 

file  of  PRQBREC; 

PR03REC; 

INTEGER ; 


begin    CDei eteAMember 3 

Reset ( Act i  veProbi  emFi I e) ; 

z     :=  (f  i  Iesize  (act:  veprobi  emf  i  Ib;  )  ; 

close  iacti vsproblamt i le) ; 

if   z  >  3  then 


oegi  n 


tlf  the  -fi  Iesize  statements- 


Maggie  :=  false; 
counts  :=  3: 


repeat 

Margaret  :=  0; 

loadi t ; 

'stopgap  :  =  false? 

got o>;  v  ( h  ,  i  2. >  ; 

write* 'To  quit  without  deleting  a  Member, 

Press  F10. ' ) ; 
repeat 

got ox y  <6, 14)  ; 

writei'Enter  the  Member' 's  PROBLEM:    ') 

g  at  ax  y  <  34 , 1 4 )  ; 

repeat 

getthekeys ( Inputstring, 7) ; 
short.Name  :  =  inputstring; 
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got ox y (34, 14) ; 
until  (ord (shortnameC 1 1 >  >  32)  or 

(stopprog) ; 
a  :=  2;        probname  :=  shortNameCl]; 
while  ishortnameEa]  <>  chr (32) )  and  (a<3) 
do 
begin 

probname  : = 

cone at (probname, sbortnameC a 1 ) v 
a  :  =  a  +  1 ; 
end; 
reset (acti veproblemf i le)  ; 
while  not  EOF  (acti  veproblem-fi  le)  do 
begin    [While  Statement} 

read (Acti veProblemFi le,  members) ; 
i-f  (members,  problem  =  probname)  and 
(members. choice  =  alternative) 
then 

margaret  :=  succ (margaret ) ; 
end;     {while  statement} 
i-f  margaret  =  2  then 
begin 

maggie  :=  true; 
counts  :=  3; 
end 
else 

stopgap  :=  true; 
i-f  not  (stopgap)  and  not  (stopprog)  and 
not  (maggie)  then 
warning; 
counts  :=  succ (counts) ; 
until  (counts  >  2)  or  (stopgap)  or 

(stopprog) ; 
cl ose (acti veprobl emf i 1 e) ; 
counts  :=  S; 

i-f  (maggie)  and  not  (stopprog)  then 
begin 

got ox y (1,15);   text back ground (red) ; 
write( '  DELETION  ABORTED!  Committee  '  , 
'would  have  less  than  2  members  '); 
del av (4000) ; 

text background (blue) ;   got ox y (1,15) ; 
clreol ; 

stopprog  :=  true; 
stopgap  :=  raise; 
end; 
i-f  stopgap  then 

begin    -Ci-f  stopgap} 
-filecheck  :=  false; 
di  splayi t ; 
repeat 

got ox y (1,14) ; 

write( 'Enter  the  MEMBER', 

'  initials  that  s^re    to  be 
removed:    ' ) ; 
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repeat 

get the keys ( Input string ,3) ; 
NewName  :=  inputstring; 
until  (ord (snortnameC i 1 >  >  32)  or 

(stopprog  > ; 
reset (Acti veProblemFi le); 
Assign  (tempproblem-f  i  le, 
cone at (f i 1 edri  ve,  ' : tempprob. txt ' ) ) ; 
rswri te (tempProbl emFi le) 5 
while  not  ECF (activeproblemf x ie)  do 
begin    Cwhile  Statement! 

read (Act i  veProbl emFi 1 e ,  members) ; 
tempmember  :=  members; 
if  (members. problem  =  probname) 
and 

(members. member  =  NewName) 
and 

(members. choice  =  alternative) 
then 
begin 

filecheck  :  =  true; 
NewString  : — 
members. probl em+ 
ai  ternati  ve+ 
'.  ' +members. member ; 
Assi  gn  ( kritsnat  ile, 
concat  Cfiledrive, 

'  ;  '  ,newstring) )  ; 
C*I-> 

erase (Kri  teri  aFi le); 
{$1+3- 

if  IOresult  =  0  then 
stopgap  :=  true; 
end; 
if  (members, probl sm  <>  probname) 
or 

(members. member  <>  NewName) 
then 
write (Temp Probl emFi le, 
tempmember) ; 
end;     CWhile  Statement} 
close (acti vepr obi emfi le); 
if  not  (filecheck)  and 
not  (stopprog)  then 
begi  n 

gotoxy (14,15) ; 

textbackground (red) ; 

write('  Member  is  not  on  that 

committee  ' ) ; 
delay (4003) ; 
textbackground (blue)  ; 
gotoxy (15,15) ; 
clreol ; 
end; 
if  filecheck  then 
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begin 

clrscr;       gotoxy ( 1 ,9) ; 
write( 'The  Member 
'  ,  NewiMame , 
in  the  committee  handling 
the  problem ' ) ; 
got ox y (1,10) ; 
wri te (probname, '  has  been 

deleted. ' ) ; 
delay (2003) ; 
end; 
counts  :=  succ (counts) ; 
until  (counts  >  2)  or  (filecheck)  or 

(stopprog) ; 
close  (tempproblem-f  i  le)  ; 
erase  (act i  veproblem-fi  1  e)  ; 
rename  (tempproblem-f  i  le, 
cone  at  (-F  i  ledri  ve  ,  ' :  prebs.  txt  ' )  )  ; 
end;    £if  stopgap J 
until  stopprog; 
end     Cl-f  the  filesize  statement} 
el  se 

not i 1 ss; 
end;     £Del eteAMember3 


procedure  AddAMember; 

(**♦#********#*####**###*******************#*#**#**#******** 

* 
* 

* 


* 
* 
* 
* 

* 
* 

* 
* 
* 

* 
* 

* 

* 
* 

* 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 


GLOBAL  VARIABLES 


ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 

EXTERNAL  FILTERS 

CALLED  FROM 
PURPOSE 


ADDAMEMBER 
BTOUCH.PAS 
TEMPNUM,  SHORTNAME, 
TEMPDEFINITION,  CODE, 
VERTZ,  FILECHECK,  TEMPNUMBER, 
TEMPMEMBER 

Z,  COUNT,  LIMMIT,  PROBNAME, 
ALTERNATIVE,  MEMBERS,  STOPPROG, 
INPUTSTRING,  MOVEOVER ,  NEW3TRING   * 
NONE  * 

ACTIVEPROBLEMFILE,  KRITERIAFILE  * 
LOADIT,  WARNING,  DISPLAYIT,  * 
NOFILES,  GETTHEKEYS  * 

FILTER9.LIB  * 

PERSMANIPULATION  * 

THIS  PROCEDURE  ALLOWS  THE  USER  TO  * 
SELECT  A  PROBLEM  THAT  IS  ALREADY  * 
ACTIVE  AND  ADD  A  MEMBER.  THE  * 
USER  IS  ALLOWED  TO  VIEW  ALL  * 
PROBLEMS  AND  THE  MEMBERS  ON  THAT  * 
COMMITTE.  * 


***■*####*#*#-*#*******#***##*#*####***##*##*#■**#***##***■**■*■) 
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var 

TEMPNUM 

SHORTNAME 

TEMPDEFINITIDN 

CODE,  VERTZ 

FILECHECK 

TEMPNUMBER 

TEMPMEMBER 


STRINGC23; 

STRINGC71; 

STRINGC591; 

INTEGER; 

BOOLEAN; 

INTEGER; 

STRING3; 


begin    iAddAMember}- 
Loadlt; 

filecheck  :=  -false; 
Reset (Acti veProblemFi le) ; 
z  :=  (f  ilesi  ze  (acti  veproblem-f  i  le)  >  ; 
cl ose (acti veprobiemf i le)  ; 
if   z  >  0  then 

begin    {If  the  -filesize  statement} 
gotoxy (1 , 12) ; 
Write  ( 'Please  enter  the  name  o-f  the  problem  to  which 

you ' ) ; 
gotoxy (1,13) ; 

write ('wish  to  add  a  member.    '); 
count  :=  0;       limmit  :=  0; 
repeat 

got ok y (1,14)  ; 

Write('The  name  must  be  listed  above:    "" )  ; 

repeat 

getthekeys ( Inputstring , 7) ; 
shortName  :=  inputstring; 
gotoxy (33, 14)  ; 
until  (ord (shortnameC 1 1 )  >  32)  or  (stopprog) ; 
a  :=  2;       probname  :=  shortNameC 1 3; 
while  (shortnameCal  <>  chr(32))  and  (a<3)  do 
begin 

probname  :=  concat (probname, shortnameCaJ ) ; 
a  :  =  a  +  1 ; 
end; 
Reset  (Acti veProblemf i  I  e)  ; 
while  not  EOF (acti veprobiemf i le)  do 
begin    twhile  statement} 

Read (Acti veProblemFi le, Members) ; 

if  (Members. Probl em  =  ProbName)  and 

(members. choice  =  alternative)  then 
begi  n 

tempdef ini tion  :=  members. def i ni ti on; 
limmit  :=  limmit  +  1; 
filecheck  :=  true; 
end; 
end;      -Cwhile  statement]- 
close (Acti  veProblemf i le) ; 
if  not  (filecheck)  and 
not  (stopprog)  then 
warning; 
count  :=  succ (count); 
until  (filecheck)  or  (count  >  2)  or  (stopprog); 
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i  f  -filecheck  then 

begin   Cif  filecheck  statement) 
di  splayi t; 
repeat 

repeat 

got ox v  £1 , 15) ; 

Write ('How  many  members  do  you', 

wish  to  add  to  this  committee?   '); 
getthekeys ( i nputstri ng ,2)  ; 
tempnum  :=  i nputstri ng; 
got ox y (56 , 15) ; 

val (tempnum, tempnumber , code) ; 
if  (limmit  +  tempnumber  >  15)  then 
begin 

got ox y (7, 16) ;   text background (red) ; 
write( '  There  will  be  over  15', 
members  on  that  committee  '); 
delay (4000) ; 
textbackground (blue) ; 
gotoxy (7, 16) ;   clreoi; 
filecheck  :=  false; 
stopprog  :=  true; 
end; 
until  (filecheck)  or  (stopprog); 
until  (tempnumber  >  0)  and  (temonumber  <  14)  or 

(stopprog) ; 
if  not  stopprog  then 

begin    Cif  not  stopprog) 

moveover  :=  17;        count  :=  0; 

vertz  :=  15; 

GotoXY(l,15) ;        clreoi; 

repeat 

limmit  :=  0; 
Goto.XY(l,15)  ; 

Write (' Members  names:    '); 
gotoxy (moveover , vertz )  ; 
getthekeys ( Input string , 3)  ; 
tempmember  :=  l nputstri ng; 
Reset ( Acti veProbi emf i la) ; 
while  not  EOF (acti veprobl emf i ie)  do 
begin    -Cwhile  statement) 

Read (Acti vePr obi  emFi le, Members) ; 
if  (Members. member  =  tempmember) 
and 

(members. probl em  =  prooname) 
and 

(members. choice  =  alternative) 
then 

limmit  :=  limmit  +  1; 
if  tempmember  =  '     '  then 
limmit  :=  100; 
end;      [while  statement) 
cl ose (Acti  vePr obi emf i le)  ; 
if  (limmit  =  0)  and 

not  (stopprog)  then 
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begin 

Members. Member  :=  ternpmember; 
Members. Checkstate  :=  'a'; 
members. datel ine  : =  'Empty  File'; 
members. def ini t ion  := 

tempde-f  ini  tion; 
members. problem  :=  probname; 
members. choice  :=  alternative; 
reset  (acti  veprobiem-f  i  ie)  ; 
Seek (Acti  vePr obi emFi Ie, 
Fi lesize (Acti veProbl emFi Ie) > ; 
Write  (Acti  veProbl  em-fi  le.  Members)  ; 
close  (Acti  veProbiem-fi  le)  ; 
NewString  := 
probname+al ternat  i  ve+ 
'. *+members. member; 
Assign (kri teriaf i le, 
cone at (f i ledri ve, ' : ' , newstring) ) ; 
rewrite  (Kri  teria-f  i  Ie)  ; 
c  1  ose  ( Kr  i  t  er  i  a-f  i  1  e )  ; 
moveover  :=  moveover  +  5; 
count  :  =  count  +  1 ; 
if  count  =  3  then 
begin 

vertz  s=  16; 
moveover  :  =  17; 
end; 
and 
el  se 

if  not  stopprog  then 
begin    {warning} 
gotoxy (12, 13) ; 
textbackground (red) ; 
if  iimmit  =  133  then 

writs'-'  Vou  must  enter 
member' *s  initials  ') 
else 

write('  Member  is  already 
on  that  committee  '); 
delay (4303) ; 
textbackground (bl ue) ; 
gotoxy ( 12, 13) ;   clreol; 
end;     {warning} 
until  (count  =  tempnumber)  -or  (stopprog); 
displayit;  del  ay (4333 5; 

end;      Cif  not  stopprog} 
end;     Cif  -filecheck  statement 3- 
end     Cif  the  -fi  lesize  statement}- 
el  se 

no-f  i  les; 
end;      CAddAMember}- 
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procedure  Check-f  orDoubi  es; 


checkfordoubl.es 

BTDUCH.PAS 

NONE 

STARTUP,  COUNT,  MEMBERS, 

ALTERNATIVE,  PROBNAME 

NONE 

ACTIVEPRCBLEMFILE  =  'PR0B5.TXT' 

NONE 

NONE 

NEWPROBLEM 

THIS  PROCEDURE  PREVENTS  THE 

INVOCATOR  FROM  CREATING  A  PROBLEM  # 

WITH  A  DUPLICATE  NAME,  THEREBYE    * 

OVERWRITING  AN  ACTIVE  PROBLEM.     * 

IT  GIVES  THE  INVOCATOR  THE         * 

OPPORTUNITY  TO  RENAME  THE  'NEW'    * 

PROBLEM.   IF  HE  CHOOSES  NOT  TO     * 

RENAME  THE  NEW  PROBLEM,  HE  IS  NOT  * 

ALLOWED  TO  CREATE  IT  * 


* 

* 

* 
* 

* 

* 

* 

* 

* 
* 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 
GLOBAL  VARIABLES 

ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 
EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


begin    'CCheckFor  Doubles} 

count  :=  i;       Startup  :=  false; 
Reset (Acti veProblemFi le)  ; 
while  not  EOF (Acti veProblemFi le)  do 
begin    CWhile  statement] 

read (Acti veProblemFi le, members)  ; 

if  (members. problem  =  probname)  and 

(members. cboi ce  =  alternative)  then 
Startup  :=  true; 
end;     Cwhile  statement  3- 
close  (acti  veproblem-f  i  le)  ; 
end:     CCheckFor Doubles} 
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procedure  NewProblem; 

NEWPROBLEM  * 

BTDUCH.PAS  * 

TEMPNUM,  SHORTNAME,  CODE,  * 

TEMPNUMBER,  CHM,  TEMPMEMBER,  * 

TEMPDEF  * 

INPUTSTRING,  ANONYMOUS,  STOP,  A,  * 

PRQBNAME,  CHATOK,  STARTUP,  CH ,  * 

STOPPROG,  MEMBERS,  Y,  MOVEOVER,  * 

COUNT,  ALTERNATIVE,  FILEDRIVE,  * 

NONE  * 

ACTIVEPROBLEMFILE,  * 

CHECKFORDOUBLES ,  GETTHEKEYS,  * 

INTROSCREEN,  SETFILE  * 

FILTER1.LIB,  FILTER7.LIB,  * 

FILTER9-LIB  * 

PROBMANIPULATION  * 

ALLOWS  THE  INOVCATOR  TO  CREATE  A  * 

NEW  PROBLEM  FOR  EITHER  * 

ALTERANT IVES  OR  CRITERIA.  * 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 


GLOBAL  VARIABLES 


ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 

EXTERNAL  FILTERS 

CALLED  FROM 
PURPOSE 


# 

* 

* 
* 
* 

* 

* 

* 
* 
* 
* 


var 


TEMPNUM 

SHORTNAME 

CODE , TEMPNUMBER 

CHM 

TEMPMEMBER 

TEMPDEF 


STRINGC23; 
BTRINSC7D; 

INTEGER; 
CHAR; 
STRING3; 
STRINGC583; 


label  188; 


cl rscr ; 


GotoXY<2,2) ; 


begin    CNewProbiemJ- 

Anonymous  :  =  False;   {Stop  :=  True;} 
Assign ( Acti veProblemFi le, 

cone at (f i ledri  ve,  ' : Probs. txt  '  ) ) ; 
IntroScreen;  180: 

Write  (  'Please  enter  the  name  o-f  the  new  problem,  '); 
GotoXY(2,3) ; 

Write ('The  name  must  not  exceed  seven  letters:   '>; 
gotoxy  (523,3)  ; 
repeat 

getthekeys f Inputstring , 7)  ; 

shortName  : =  inputstring; 

gotoxy (50,3) ; 
until  (ord (shortnameC i 1 )  >  32)  or  (stopprog) ; 
a  :=  2;  probname  :=  shortNameC 1 1 ; 

while  (shortnameC a  1    <>  chr (32) )  and  (a<8)  do 

begi  n 

probname  :=  cencat (probname , shortnameC a 3 ) ; 
a  :  =  a  +  1 ; 

end; 
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CheckForDoubles;  ChatGK  :=  True; 

*  AT  THIS  POINT  THE  PROGRAM  HAS  GONE  AND  CHECKED  TO  SEE  IF* 

*  THERE  ARE  ANY  EXISTING  PROBLEMS  WITH  THE  SAME  NAME  .    IF* 

*  THERE  ARE,  THEN  THE  BOOLEAN  VARIABLE  'Startup'  IS  SET  TO* 

*  TRUE  AND  THE  NEXT  'IF'  STATEMENT  IS  ACTIVATED.  * 
******** ***************##****##*#*********^ 

if  Startup  then 

begin    {Embedded  It  Startup  Statement  Warning} 

window  (6,4,74,21) ;        textbackground (red) ; 

clrscr; 

gotoxy  (6,5)  ; 

write ( 'ATTENTION! ! !   THERE  IS  A  FILE  ALREADY  WITH 

THE  NAME  ',probname); 
gotoxy (6,7) ; 
write('IN  OUR  FILES.   IN  ORDER  TO  GO  ON,  YOU  WILL 

HAVE  TO','  GIVE  THIS'); 
gotoxy (6,9) ; 
write (  PROBLEM  A  NEW  NAME  OR  DELETE  THE  OLD  ONE. 

DO  YOU' ,  '  WISH  TO' )  ; 
gotoxy (6,11) ; 
write ( 'CONTINUE,  GIVING  THE  NEW  PROBLEM  A  DIFFERENT 

NAME?' , '    Y/N') ; 
repeat 

got ox  y ( 66 ,11); 
getthekeys ( Input string  ,  1 )  ; 
Ch    :=  input string; 
chin  :=  ch; 
until  ChM  in  C 'Y' , 'N*3; 
i-f  ch  =  #89  then 
begin 

textbackground (blue) ;  clrscr; 

window ( 12,5,73,20) ;     clrscr;   goto  100; 
end ; 
end;     -CEmbedded  It  Startup  Statement  Warning} 

(*********************************************************** 

*  AT  THIS  POINT  THE  PROGRAM  HAS  GONE  AND  CHECKED  TO  SEE    * 

*  IF  THERE  ARE  ANY  EXISTING  PROBLEMS  WITH  THE  SAME  NAME  .  * 

*  IF  THERE  ARE  NOT,  THEN  THE  BOOLEAN  VARIABLE  'StartUp'    * 

*  IS  SET  TO  FALSE  AND  THE  NEXT  IF  STATEMENT  IS  ACTIVATED.  * 
**********************************************************) 

if  not  (Startup)  and  not  (stapproq)  then 

begin    [Embedded  It  not  StartUp  Statement} 
Reset ( Acti  veProbl emFi 1 e) ; 

Seek (Acti  veProbl emFi 1 e , Fi 1 esi  ze (Acti  veProbl emFi 1 e>  ) ; 
members. probl em  :=  probname; 
GotoXY(2,4); 
Writeln ( 'Please  give  a  one  line  definition  of 

the  problem: ' ) ; 
gotoxy (2,5) ; 

getthekeys ( Input stri  ng ,58)  ; 
tempDef  :=  inputstring; 
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gotoxy (2,6) ; 

write( 'Do  you  wish  to  elaborate  on  that 

definition?   ' ) ; 
repeat 

got  ok  v ( 59 ,  6 )  ; 

getthekeys  ( Inputstring , i ) ; 
ch  :=  inputstring; 
chm  :=  ch; 
unt i 1  ChM  in  C ' Y ' ,  ' N ' 1 ; 

i-f  ch  =  *Y*  then  scroll  box  (13,  II  ,51 ,  'z  '  )  ; 
window  (12,5,  73,20)  ;   te>;  tbackground  (blue)  ; 
gotoxy (2,7) ; 
Write('How  many  members  comprise  this 

committee?   ' ) ; 
repeat 

gotoxy (58,7) ; 

getthekeys (inputstring ,2) ; 
tempnum  :  =  inputstring; 
vai (tempnum, tempnumber , code) ; 
if  tempnumber  <  10  then 
begin 

gotoxy (5S,7) ; 
clreol ; 
write ( '  ' ) ; 

text back ground (yei low) ; 
write (tempnumber ) ; 
tex tbackgrsund (blue) ; 
end; 
until  (tempnumber  >  1)  and  (tempnumber  <  16); 
GotoXY(2,S);    Wri te ( 'Members  names:   '); 
count  :=  0; 
Y  :=  8; 

moveover  :=  57; 
repeat 

1 immi t  : =  3; 
if  Y  >  10  then 
begin 

moveover  :=  moveover  —  8; 
Y  :=  8; 
GotcXY(2,8> ; 

Wri te ( 'Members  names:   '); 
end; 
repeat 

gotoxy (moveover , Y)  ; 
getthekeys ( Inputstring , 3)  ; 
shortName  :=  inputstring^ 
tempmember  :=  inputstring; 
until  ord (shortnameC 1 1 )  >  32; 
Reset  (Acti  veF'roblemf  i  le)  ; 
while  not  EOF (acti veprobl emfi 1 e)  do 
begin    Cwhile  statement 3- 

Read (Acti  veProbl emFi 1 e , Members) ; 
if  (Members. member  =  tempmember)  and 
(members. probl em  =  probname)  and 
(members. choice  =  alternative)  then 
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limmit  :=  limmit  +  1; 
end;     {while  statement) 
close (Acti veProbl emf i le); 
if  (limmit  =  0)  and 

not  istopprog)  then 
begin 

Members. Member  :=  tempmember; 
Members. Checkst ate  :=  'a'; 
members,  datel  irte  :=  'Emptv  File'; 
members. problem  :=  probname; 
members. definiti on  :=  tempdef; 
members. choice  :=  alternative; 
members. checkchange  :=  'N'; 
reset (acti veproblemf i le) ; 
Seek (Acti veProbl emFi le, 
Fi lesize (Acti veProbl emFi le) ) ; 
Wri  te (Acti veProbl emf i le, Members) ; 
close (Acti  veProbl emf  i 1 e) ; 
NewString  :=  probname+ai ternati ve+ 

'. '+members. member ; 
Assign (kri teriaf i le, 
concat (f i ledri ve,  : ' ,newstring) ) ; 
rewrite (Kri teriaf i le) ; 
cl ose (Kri  teri  af i 1 e) ; 
count  :=  count  +  1; 
Y  :=  Y  +  1; 
end 
el  se 

begin    {warning} 

gotoxy (13, 16) ;   textbackground (red) ; 
write ( 'Member  is  already  on  that 

committee ' ) ; 
delay  (40012)  ; 
textbackground (blue) ; 
gotoxy < 13, 16) ;   clreoi; 
end;     {warning} 
until  (count  =  tempnumber)  or  (stopprog); 
if  tempnumber  =  2  then 

GotoXY(2,i3) 
else 

gotoxy (2, 11) ; 
write('Will  communications  and  criteria    be 

anonymous?  ' ) ; 
repeat    {anonymous  communications' 
if  tempnumber  =  2  then 

gotoxy (59, 10) 
el  se 

gotoxy (59, 11); 
get the keys ( Input string , 1 ) ; 
ch  :=  inputstring; 
chm  :=  ch; 
until  ChM  in  C ' Y ' , 'N' 3 ; 


■  T>. 


m 


end 


It  Ch  =  #S9  then 
begin 

Anonymous  :=  True; 
set-f  i  le; 
end; 
end;      ^Embedded  If  not  Startup  Statement} 
•CNewPr  ob  1  em> 


procedure  veri f ythename; 
(***#*****************#********#*#**#*********#**^ 


VERIFYTHENAME  * 

BTDUCH.PAS  * 

SHORTNAME,  COUNTS  * 

STOPGAP,  INPUTSTRING,  PROBNAME,  * 
MEMBERS,  ALT,  STOPPROG,  FILECHECK,* 

NEWNAME,  PR INTONE  * 

NONE  * 

ACTIVEPROBLEMFILE  * 

DISPLAYIT,  GETTHEKEYS  * 

FILTER9.LIB  * 

PR I NTALTERNAT I VES , PR I NTCHATTERBOX  * 

CHECKS  THE  ACTIVEPROBLEMFILE  AND  * 

VERIFIES  THAT  A  MEMBER  IS  ON  A  * 

CERTAIN  COMMITTEE.  * 


* 
* 
* 
# 

* 

* 

* 

* 
* 
* 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 
GLOBAL  VARIABLES 


ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 
EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


var 


SHORTNAME 
COUNTS 


STRINGC7U 
INTEGER; 


begin     Cver if ythename 2 

stopgap  :=  false;       counts  :=  3; 
repeat      -Ctill  filename  verified} 
got ox y (35, 16) ; 
repeat 

get the keys  ( Input string ,7) ; 
shortName  :=  inputstring; 
gotoxy (35, 16) ; 
until  (ord (shortnameC 1 3 )  >  32)  or  (stopprog) ; 
a  :=  2;       probname  :=  shortNameC 1 1 ; 
while  (shortnameCal  <>  chr (32) )  and  (a<3)  do 
begin 

prooname  i=    concat (probname, shortnameCa 
a  :  =  a  +  1 ; 
end; 
reset (acti  vepr oblemf i le); 
while  not  EOF (acti veproblemfi le)  do 
begin    -CWhile  Statement} 

read ( Act i  veProbl emFi I e ,  members) ; 
if  (members. problem  =  probname)  and 
(members. choice  =  alt)  then 
stopgap  :=  true; 
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end; 
if  not  (stopgap)  and  not  (stopprog)  then  warning; 
counts  :=  succ (counts) ; 

■Ctill  filename  verified} 
until  (counts  >  2)  or  (stopgap)  or  (stopprac); 
close (acti veprobl emfi le)  ; 
counts  :=  0; 
if  (stopgap)  and  (printone)  then 

begin    Cif  stopgap  and  pr intone } 

filecheck  :=  false;  displavit; 

repeat 

gotoxy ( 1 , 16) ; 

write( 'Enter  the  MEMBER  initials 

of  the  file:    ' ) ; 
gotoxy (43, 16) ; 
repeat 

getthekeys ( Inputstring ,3) ; 
NewName  :=  inputstring; 
gotoxy (43, 16) ; 
until  (ord (newnameC 1 ] )  >  32)  or  (stopprog); 
reset (Acti  veProbl emFi le); 
while  not  EOF (acti veprobiemfi 1 e)  do 
begin    vWhile  Statement} 

read (Acti  veProbl emFi 1 e ,  member s) ; 
if  (members. probl em  =  prcbname)  and 
(members. member  =  NewName)   and 
(members. choice  =  alt)  then 
begin 

filecheck  :=  true; 
stopgap  :=  true; 
end; 
end;      -CWhile  Statement} 
close (acti  veprobl emfi le) ; 
if  not  (-filecheck)  and 
not  \  stopprog)  then 
begi  n 

gotoxy (14,15);   text back ground (red) ; 
write('  Member  is  not  on 

that  committee  '); 
delay (40G0)  ; 
textbackground (blue)  ; 
gotoxy ( 14, 15)  ; 
clreol ; 
end ; 
counts  5=  5u.cc  (counts)  ; 
until  (counts  >  2)  or     (filecheck)  or  (stopprog); 
end;     Cif  stopgap  and  printone} 
end;       Cveri f ythename} 
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procedure  printaltsrnatives; 


(**********#*********#*******#*********#****###************* 


* 
* 

# 

# 
* 
# 
* 

* 

* 


PR I NT ALTERNATIVES  * 

8T0UCH.PAS  * 

SHGRTNAME,  TEMPALT,  ZCOUNT  * 

PR INTONE,  ALTERNATIVE,  ALT,  * 

STOPGAP,  STOPPRQG,  NEWSTRING,  * 

PROBNAME,  FILEDRIVE,  NEWNAME,  Z,  * 

CRITERIA,  MEMBERS  * 

NONE  * 

ACTIVEPROBLEMFILE,  KRITERIAFILE  * 

LOADIT,  VERIFYTHENAME,  WARNING,  * 

NOFILES  * 

PRINTER (EXTERNAL  DEVICE)  * 

CHATMANIPULATION  * 

PRINTS  FILES  ON  SPECIFIC  MEMBERS  * 

ON  A  COMMITTEE  FOR  ALTERNATIVES,  * 

EITHER  COMPLETED  OR  IN  PROCESS.  * 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 
GLOBAL  VARIABLES 


ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 

EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


v&r 


SHORTNAME 

TEMPALT 

ZCOUNT 


STRINGC73; 
CHAR; 

INTEGER; 


•gin    Cpr  i  ntal  tsrnati  ves} 
printone  :=  true; 
Reset (Acti veProblemFi le)  ; 

zcount  :=  (f i lesize (acti veproblemf i le) ) ; 
close (acti veprabiemti le)  ; 
repeat    [main  repeat  statement! 

tempal t  :=  alternative;       alternative  s=  alt 
loadi  t ; 

alternative  s=  tempalt; 
i-f   zcount  >  0  then 

begin    £If  the  fi lesize  statement! 
repeat 

stopgap  :=  -false; 

gotoxy (1 , 12) ; 

write ( 'Entering  a  Problem  Name', 

from  this  list  will  print  that'); 
gotoxv (1,13) ; 
wr  i  te  <  '  f  i  1  e  -f  or  you  ' )  5 
gotoxv (6, 14) ; 
write  ('To  quit  without  printing  a  -file, 

Press  Fl(3.  '  )  ; 
gotoxy (1 , 16) ;  clreol; 

write  ('Enter  the  name  o-f  the  Problem:  '); 
veri  f ythename; 
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if  C-filecheck)  and  not  (stcpprog)  then 
begin   [conditions  are  met! 
newstring  := 

concat (probname+al t+ ' . ' +newname) ; 
assign ( kri  teri  af i 1 e, 

f i ledri  ve+  '  :  ' +newstring) ; 
Reset (kriteriaFile) ; 
z  :=  fi lesize (kri teri afi 1 e) ; 
i-f  z  >  0  then 

begin    Cif  filesize! 

writeln (1st, 'PROBLEM  IS 

' ,probname) ; 
writeln (1 st ) ; 
wri  teln (1st) ; 

while  not  EOF  (kri  teriaf  i  le)  do 
begin    CWhile  statements 
read (kriteriafile, 

cri  teria) ; 
write (1st , 

cri teria. cri tname, ' :   '! 
writeln  <1 st , 
cri teria. cri  tdef ) ; 
end;      {While  statement! 
end;      Cif  fi lesize J 
close  (kri  teria-fi  le)  ; 
end     [conditions  are  met! 
el  se 

begin 

if  not  (stopprog)  then 
warning; 
end; 
C$I  +  ! 

if  IOresult  =  0  then  stopgap  :=  true; 
if  <z  =  3)  and  not  (stopprog)  then 
begin   Cif  filesize  else} 
got ox y (21 ,  15)  ; 
write('file  is  empty'); 
delay (3000) ; 
got ox y (21,15) ; 
clreol ; 
end;    Cif  filesize  else} 
until  (stopprog)  or  (stopgap); 
end     -Cif  the  filesize  statement} 
el  se 

nof i 1 bs; 
until  stopprog;       Cmam  repeat  statement! 
end;     (pr intai ternati ves) 


procedure  printchatterbox ; 

PRINTCHATTERBOX  * 

BTOUCH.PAS  * 

SHORTNAME,  TEMPSTRING,  TEMPALT,  * 

COUNTS,  ZCOUNT  * 

PR INTONE,  ALTERNATIVE,  ALT,  * 

STOPGAP,  FILEDRIVE,  STOPPROG  * 

NONE  * 

TEXTFILE,  ACTIVEPROBLEMFILE  * 

LOADIT,  VERIFYTHENAME,  WARNING,  * 

NOF I LES  * 

PRINTER (EXTERNAL  DEVICE)  * 

CHATMANIPULATION  * 

PRINTS  FILES  ON  SPECIFIC  PROBLEMS  * 

WHERE  THE  MEMBERS  HAVE  UTILIZED  * 

THE  CHATTERBOX.  * 


* 

* 

* 

* 

* 
* 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 

GLOBAL  VARIABLES 

ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 

EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


var 


SHORTNAME 
TEMPSTRING 
TEXTFILE 
TEMPALT 
COUNTS,  ZCOUNT 


STRINGC73; 

STRINGC54I; 
TEXT; 
CHAR; 
INTEGER; 


alt; 
temcal t 


begin    {printchatterbox} 
printone  :=  false; 
Reset  <  Ac t  i  vePr ob 1 emFi 1 e ) ; 

zcount  :=  (f i 1 esize (acti veproblemf i le) ) ; 
close (acti veprobi emfile)  ; 
repeat    -Cmain  repeat  statement} 
tempalt  :=  alternative;       alternative  : 
loadit;  alternative  : 

if   zcount  >  0  then 

begin    Clf  the  filesize  statements- 
repeat 

stopgap  :=  false; 

gotoxy (1,12)  ; 

write ( 'Entering  a  Problem  Name', 

from  this  list  will  print  that'); 
gotoxy ( 1 , 13) ; 
write( 'file  for  you'); 
gotoxy  <6, 14)  ; 
writeC 'To  quit  without  printing  a  file, 

Press  F10. ' ) ; 
gotoxy ( 1 , 16) ;  cireol; 

write ('Enter  the  name  of  the  Problem: '); 


ver i  f ythename; 


counts  :=  0; 
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i f  (stopgap)  and  not  (stopprog)  then 

begin   {conditions  are  met} 

NewString  :=  probname+al t+ ' . zzz ' ; 

Assign  (textf i  ie,  cone  at  (f  i  iedrive, 

:  '  ,naw5tn  ng)  )  ; 
r  *  t -j. 

Reset  < text-f  i  le)  ; 

if  XOresult  =  0  then 
begin   ClOresuIt} 

writeln (1st, 'CHATTERBOX  IS 

' ,probname) ; 
writeln (1 st) ; 
writeln (1 st ) ; 

while  not  EOF (textf i le)  do 
begin    {While  statement} 
read  In  (text-f  i  le, 

tempstring) ; 
writeln (1 st , tempstring) ; 
counts  :=  succ (counts) ; 
end:     {While  statement; 
end;    ClOresult} 
c  1  ose  ( t  ex  t  -f  i  1  e )  ; 
end     {conditions  are    met} 
else 

begin 

if  not  (stopprog)  then 
warning; 
end; 
if  (counts  =  0)  and  not  (stopprog)  then 
begin   {if  filesize  else} 
gotDxy (21 , 15) ; 
write ('file  is  empty  ' ) ; 
del  ay (3000) ; 
got ox y (21 , 15) ; 
cireol ; 
end;    {if  filesize  else} 
until  (stopprog)  or  (stopgap); 
end     {If  the  filesize  statement} 
else 

nof i les; 
until  stopprog;      {main  repeat  statement} 
end;     {printchatterbox} 
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CTAILEND.LIB1 


procedure  Final Choice; 


* 
* 
* 

# 
* 

* 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 
GLOBAL  VARIABLES 


FINALCHQICE  * 

CTOUCH.PAS  * 

NONE  * 

PROBLEMFLAG,  FLAGCHOICE,  COUNT,  * 

MEMBERS,  NAMESTRING,  PROBNAME ,  * 

ALTERNATIVE  * 

NONE  * 

ACTIVEPROBLEMFILE  =  'PROBS.TXT'  * 

NONE  * 

NONE  * 

REVIEW,  WIND0W3  * 

IF  THREE  CONDITIONS  ARE  MET,  THEN  * 

MEMBERS.   CHECKSTATE  IS  CHANGED  * 

TO  WHATEVER  THE  NEW  VALUE  OF  * 

PROBLEMFLAG  IS  LOADED  INTO  THAT  * 

RECORD.  * 


ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 
EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


oeqi  n 


inalChoiceJ 


case  ProblemFIaq  o-f 


a 

'b 

rc 
'd 
'  i 
'1 
'o 


ProblemFlag 

;  = 

'h 

» 

ProbiemFIag 

:  = 

k 

^ 

ProblemFlag 

:  = 

"n 

n 

ProblemFlag 

:  = 

'  Q 

9 

Pr obi  emFl ag 

:  = 

i 

* 

Probl emFlag 

:  = 

'  m 

5 

ProblemFlag 

:  = 

'P 

end; 


ise  statement]- 


flagchoice  :=  '  '; 

reset (Acti veProblemFi la); 

Count  i —    1 ; 

while  not  EOF  (Acti  veProbl  ernFi  1  e)  do 

begin    CWhile  Statement} 

read (Acti  veProbl ernFi 1 e,  members) ; 

if  (members. member  =  namestring)  and 
(members. probl em  =  probname)  and 
(members. choice  =  alternative)  then 
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members.  CheckState  :=  problem-flag; 


end 


seek  <acti  veproblem-f  i  1  e, count— 1 )  ; 

wri te (acti  veproblem-f  i I e, members) 
count  :=  succ (count); 

end;     -CWhile  Statement} 

close (Acti veProblemFi 1 e) ; 

■CFinal  Choice}- 


procedure  LoadArray; 


(***************#****##******##**#****#*#******************* 


* 
* 

* 

* 
* 
* 
* 

* 

* 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 
GLOBAL  VARIABLES 
ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 
EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


LOADARRAY 

CTOUCH.PAS 

NONE 

TRACK 1,  LIMMIT,  NAMES,  Z 

CRITARRAY 

KRITERIAFILE 

CRITSORT,  NEWNUMBER,  ODOMETER 

NONE 

WIND0W3 

LOADS  THE  ARRAY  WITH  THE  USER'S 

CHOSEN  PROBLEM  FOR  RECORD 

MANIPULATION  BEFORE  THE  PROGRAM 

TERMINATES. 


* 

* 
* 
* 


*********#***#***************#****##******#***************•) 

begin    {LoadArray} 

reset  < Kr i t er i  a-f  i  1  e )  ; 

z  :=  f  i  Iesize  (kri  teria-f  i  le)  ; 

if  z  >  a  then 

begin    Cif  fi Iesize} 
Trackl  : =  i ; 

while  not  EOF (Kri teriaFi le)  do 
begin    {While  Statement} 

Read (Kri teriaFi 1 e, Names C Track  1 1 ) ; 
Trackl  :=  Trackl  +  1; 
end;    '  [While  Statement} 

Limmit  :=  Trackl; 

end;      Cif  fi Iesize} 
close (Kri teriaFi le); 


Cri  tSort (Names , Li mmit) ; 

Cdcmeter ; 


NewNumber (Names ,  Li  mmi  t ) 


end ; 


CLoadArrayJ 


O  i   ry 


procedure  NewWrite(var  Name 
Integer) ; 


Cr it Array;   Limmit 


<##**#*#**#*#**#******#****##*#******#**###*##*#**********#* 


* 

* 
* 
* 
# 

* 

* 
* 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 
GLOBAL  VARIABLES 

ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 
EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


NEWWRITE  * 

CTOUCH.PAS  * 

NONE  * 

Z,  TRACK!,  NAMES,  PROBLEMFLAG,  * 

LIMMIT  * 

CRITARRAY  * 

NONE  * 

CRITSORT,  NEWNUMBER  * 

FILTER6.LIB  * 

WIND0W3,  REVIEW  * 

RELOADS  THE  CRITERIA  FILE  FROM  * 

THE  ARRAY  THAT  HAS  BEEN  CHANGED  * 

THROUGH  THE  ACTIONS  OF  THE  USER.  * 

begin    CNewWrite} 
if  z  >  0  then 
begin 

NewNumber (Names, 


Lit  i-ixesize. 


Cri  tSort (Names, Li mmi t) ; 
Limmit) ; 


rewri  te  (Kri  teriaf  i  le)  ; 

Track!  : =  1 ; 

repeat 

case  namesCTrack! j . fl agl  of 

1.  .  10(25   :   begin 

NamesCTrackl J.StatFlag  := 

problemFlag; 
Write (kri  teriaf i le, 

NamesCTrack!!]); 
end; 

end;      Cease  statement} 

Track!  :=  Track  1  +  1; 
until  (Track  1  =  Limmit); 
end;      Cif  filesizel 
cl  ose  (Kri  teri  aFi  1  e)  ; 
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end; 


tNewWri  te3- 


procadura  Lhanqsrtecord(var  Names 

Limmi t 


Cr  i  t Array: 
Integer ) ; 


i**-*******^*^**^********#*******^**^************^*¥-***'***^^-^ 


* 
* 

* 

* 

# 
* 

* 

* 

* 


PROCEDURE 
SUPPORTS  PRDGRAM 
LOCAL  VARIABLES 

GLOBAL  VARIABLES 


ARRAYS  USED 

FILES  ACCESSED 
EXTERNAL  CALLS 
EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


CHANGERECORD 

CTOUCH.PAS 

WRONGLEVEL,  WRONGWORD ,  CHANGECRIT 

CHM,  TEMPALT,  LONGNAME,  SHORTNAME 

TRACK 1,  CHOICE,  W I THOUTACHANGE * 

FINDCODE,  CH,  PROBLEMFLAG,  NAMES, 

STOPPROG,  COUNTED 

CRITARRAY 

NONE 

BETTHEKEYS,  NEWNUMBER 

FILTER6.LIB,  FILTER9.LIB 

REVIEW 

ALLOWS  THE  USER  TO  CHANGE  THE 

ALTERNATIVES/CRITERIA,  AT  THE 

LEVEL  OF  DEVELOPMENT  THEY  ARE 

AT.   WILL  NOT  ALLOW  THEM  TO 


CHANGE  CRITERIA  AT 
PRE V I OUSL Y  FLAGGED 


A  LEVEL 

AS  FINISHED. 


* 
» 

*■ 

* 

* 


^**^**-^^****^^^*^^*^^^**^**^*^^*^**^*^***^**-^**^^^^*^*^^-ii-^  i 


var 


WrongLevel ,  Wi thoutAChange,  FindCode 

Wrong Word 

changecri t 

chm 

short name 

longname 

tempai  t 


Boolean; 
Bool ean; 
stringiS); 
char: 
string 10; 
string E58 j ; 
stringC121; 


oegi 


CChanqeKecard} 


if  alternative  =  'Ar  then 

tempalt  :=  'Alternative' 
else 

tempalt  :=  'Criteria': 

track!  :=  <3;  choice  :=  '  '; 

Wi thoutAChange  :=  True;    Findcode  :=  False; 

WrongLevel  :=  True; 

gotoxy<2,2);  clreol; 

write ('Enter  the  ', tempalt,'  Name  you  wish  to  change 

or  del  eta;    ' ) ; 
qctoxy (63,2) ; 

repeat 

getthekeys ( Inputstring , 10) ; 


shortName  :=  input string; 
gotoxy (63,2)  ; 
until  (ord (short name C 1 1 )  >  32)  or  (stopprog) ; 


a  :=    2; 

changecrit  :=  shcrtNameC 1 1 ; 

while  (shortnameCaU  <>  chr(13))  and  (a<ll)  do 
begin 

changecrit  s=  concat (changecri t , shortnameCa j )  ; 

a  :  =  a  +  1 ; 
end; 

repeat 

gotoxy(2,2);  clreol; 

wronglevei  :=  true; 
wrongword  :=  false; 
track  1  ;=  track!  +  1; 

case  problemf lag  of 

'  a  '  ,  ' i    :   begi  n 

if  < names C track  1 1 .  <zri  tname  = 
changecrit)  and 
(namesCtrackl 1 , f 1 ag2  =  3> 
then 
b  eg  i  n 

Without AChange  :=  False; 

got ox y (2,2)  ; 

write (Names CTrackl 1 . 

Cr it Name,  i        ' , 
Names CTrackl 1 . Cri tDef ) ; 
got  ox  y  (2,4)  ; 
write ('Do  you  wish  to 
delete  this  ' , 
'or  change  it?  D/C       '); 
FindCode  :=  True; 
getthekeys  ( Inputstnnq  ,  i  )  ; 
choice  :=  inputstrxng; 
WrongLevel  :=  False; 
got ox y (2,4) ; 
clreol ; 
end; 
if  (namesCtrackl 1 , cri tname  <> 
changecrit)  and 
(namesCtrackl 1 . flag2  =  0) 
then 

wrongword  :=  true; 

end; 

'  b  '  ,  '  1    :   begi  n 

if  (namesCtrack 1 1 . cr i tname  = 
changecrit)  and 
(namesC track  1 1 . f 1 ag2  >  0)  and 


(namesCtrack  1  ]  . -f  lag3  =  0) 
then 
begin 

Wi thoutAChange  :=  False; 

got ox y (2,2) ; 

wr i  t  e ( Names  C  Tr ac  k 1  J . 

Cr itName ,  '  :   '  , 
NamesCTrackl 1 . Cri tDef > ; 
got ox y (2,4) ; 
write(  Do  you  wish  to 
delete  thi s  ' , 
'or  change  it?   D/C   '); 
FindCode  :=  True; 
getthekeys ( Inputstri ng , 1 )  ; 
choice  :=  inputstring; 
WrongLevel  :=  False; 
gotoxy  (2,4) ; 
clreol ; 
end; 
if  (namesCtrackl 1 . cri tname  <> 
changecrit)  and 
(namesCtrackl  1 .  f  lag-3  =  0) 
then 
wrongword  :=  true; 
end; 

begin 

i-f  (namesCtrackl  1 .  cri  tname  = 
changecrit)  and 
(namesCtrackl 1 . flag3  >  0) 
then 
begin 

Wi thoutAChange  :=  False; 

gotoxy (2,2) ; 

wr  i  t  e  (  Names  C  Tr  ack 1 1 . 

Cr itName, ' :     , 
NamesCTracklU.CritDe-f  )  ; 
gotoxy (2,4) ; 
write( 'Do  you  wish  to 
del ete  thi  s  ' , 
'or  change  it?   D/C   '); 
FindCode  :=  True; 
getthekeys ( Inputstring , 1 > ; 
choice  :=  inputstring; 
WrongLevel  :=  False; 
gotoxy (2,4) ; 
clreol ; 
end; 
if  (namesCtrackl 1 . cri tname  <> 
changecrit)  and 
(namesCtrackl  1.  -flag  3  >  0) 
then 

wrongword  :=  true; 
end; 


end;     Cease  statement! 
until  <trackl  =  limmit-1)  or  (f indcode); 
if  wrongward  then 
begin 

i f  alternative  =  'A'  then 

tempalt  :=   Alternative' 
else 

tempalt  :=  'Criteria'; 

clrscr;     sound (500) ;   delay (100);   nosound; 

gotoxy (13,2) ; 

writeln('You  may  have  misspelled  the  ', tempalt, 

' .  Try  again.  ' ) ; 
del  ay (5000) ; 

gotoxy ( 13,2) ;  clreoi; 

FindCode  :=  True; 
wrongievel  :=  false; 

end; 

if  wrongievel  then 

begin 

if  alternative  =  'A'  then 

tempalt  :=  'Alternative' 
el  se 

tempalt  :=  'Criteria'; 

clrscr;     sound (500);   delay (100);   nosound; 

got ex v (12,2) ; 

writeln('You  may  not  change  the  ', tempalt, 

'  at  that  level ' ) ; 
del  ay (5000) ; 

gotoxy ( 12,2) ;  clreoi; 

FindCode  :=  True; 
wrongievel  :=  false; 

end; 

if  choice  =  'D'  then 

begin     -Clf  Delete  Statement} 

clrscr; 

gotoxy (2,2)  ; 

write  ( Names CTrackl 3 . Cr it Name,  '  :    '  , 

NamesCTracxi 2 . Cri tDef ) ; 
gotoxy (2,4) % 
textbackground (red)  ; 
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choice  :=  '  ';       gotoxy < 12, 9) ; 

if  alternative  =  'A'  then 

tempait  :=  'ALTERNATIVE' 
else 

tempait  :=   CRITERIA  ; 

write i'  YOU  ARE  ABOUT  TO  DELETE  THIS  RECORD! ! ! 

BE  ADVISED   '); 
gat ox y  £  1 2 , 10) ; 
writeC  THAT  A  YES  ANSWER  TO  THIS  QUESTION  WILL 

REMOVE  THIS  *); 
gotoxy (12,11) ; 
writeC   ',TEMPALT,'  PERMANENTLY.   DO  YOU  STILL 

WISH  TO  DELETE   ')  ; 
gotoxy (12,12)  ; 
writeC  THIS  ',  tempait ,  '?   Y/N 

')  5 

gotoxy (62, 12)  ; 

repeat 

getthekeys ( Inputetr i  ng , 1 )  ; 

ch  :=  inoutstrinq; 

chm  :=  ch; 

gotoxy (64, 12)  ; 
until  chm  in  l'Y*,*N*3; 

clrscr; 

i-f  ch  =  'V    then 

begin     [Embedded  If  Delete  Statements 

ch  : =  'N' ; 

gotoxy (2,2) ; 

write (NamesCTrack 13. Cr i tName , ' :    ' , 

Names CTrackl 1 , Cri  tDef ) ; 

gotoxy  <2,4) ; 

gotoxy (21 , 11) 5 

write ('This  ', tempait,'  has  been 

deleted  ) ; 
NamesCTrackl 1 . Fiagl  :=  3; 
delay (4000) ; 

gotoxy (2, 2);  clreol; 

got  ox  y  >-.  2  ,  4 )  ;  c^r  301  ■ 

changer ec  :=   C'; 

end;       {Embedded  If  Delete  Statement] 

end;       Clf  Delete  Statement} 

if  choice  =  *C*  then 

begin      Clf  Change  Statement] 


i f  alternative  =  'A'  then 

tempalt  :=   Alternative' 
el  se 

tsmpait  :=  'Criteria '; 

choi  ce  : =  '  ' ; 

gotoxy (2,3) ; 

write ('Enter  the  New  ', tempalt,'  Name:    '}; 

gotoxy (33 ,3) ; 

repeat 

getthekeys ( Input string ,  10)  ; 

shortName  :=  inputstring; 

got ox y (33,3) ; 
until  (ord (shortnameC 1 3 )  >  32)  or 

(stopprog) ; 
a  :=  2; 
namesCtrackl 1 , cri tname  :  =  shortNameC i j ; 

while  (shortnameC a 3  <>  chr(13))  and 
(a<ll)  do 
begin 

namesCtrackl 3 . cri tname  := 
concat ( names £  track 1 1 . cri tname, 

shortnamsEa]) ; 
a  t =  a  "+■  x  ; 
end; 

gotoxy (2, 4);    wri  te  (  'De-f  ini  ti  on:    '); 

gotoxy (15,4) ; 

repeat 

qetthekevs ( Inputstring ,58) ; 

1 ongName  :=  inputstrinq; 

got ox y (15,4) ; 
until  (ore ClongnameC 1 1 )  >  32)  or 

(stopprog) ; 
a  ",  -  Z$ 
namesCtrackl ] . cri tdet  :=  longNarneClj; 

while  (iongnameLaJ  <>  chr(13))  and 
(a<counted+l )  do 
begin 

namesL  track!  j  .  cri  tde-f  s  = 

concat £ namesCtrackl 1  * cri tdef , longnNameCa] 
a  :  =  a  +  1 ; 
end; 

clrscr;  got ox y< 2, 2); 

wri  te (namesETr ack 1 1  * cri  tname , ' :   * , 
names C Track  11 . cri  tdef ) ; 

got ox y (22,4)  ; 

writs ('The  ',tempalt,'  has  been 


ZZ& 


changed  ' ) ; 
delay (2500) ; 
gat ax y (22,4) ; 
gatoxy (2,2) ; 
changerec  :=  'C'; 

end;       CI-F  Change  Statement! 

NewNumber  ( Names  ,  Li  mmi  t )  ; 

end;     £ Chang eRec or d> 


cl reel ; 
cl reel ; 


procedure  RanToCompl etion; 


(**#*****#******#*#************#*****#*********#***********•* 


* 

# 
* 
* 
* 
* 

* 
* 

* 
# 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 
GLOBAL  VARIABLES 
ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 

EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


RANTCCGMPLETION  * 

CTOUCH.PAS  * 

NONE  * 

I  * 

NONE  * 

NONE  * 

PORTC*03D9J,  SETBGRDER  (INTERAL  * 

PROCEDURE)  * 

NONE  * 

WIND0W3  * 

THIS  PROCEDURE  INFORMS  THE  USER  * 

THAT  ALL  MEMBERS  OF  THE  COMMITTEE  * 

ARE  IN  COMPLETE  AGREEMENT  WITH  * 

THE  CRITERIA  CONCERNING  THE  * 

PROBLEM.   IT  DIRECTS  THEM  TO  GO  * 

ON  TO  THE  FIRST  STAGE  OF  THE  * 
CO-OP  SYSTEM.  A  BIT  MUCH  ISN'T  IT?* 

procedure  Setharder (color: byte) ; 

begin   -Csetborder  } 

portC*03d9D : =  $f  and  color; 

end:   -Csetborder} 

begin   CRanTcCampIetion} 

introscreen; 

gatoXY(3,S) ; 

write  ('You    3ire    now    ready    to    enter    the    CO-OP    system'); 

gotoxy(I8,i6) ; 

write ( 'Press  any  key  to  exit ' ) ; 

repeat 

■for  I  :=  0  to  15  do 
begin 
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setborder  i I ) ; 
delay (500) ; 
end; 
until  keypressed; 

setbardsr £8) ; 

end;     CRanToCompl etion} 


procedure  Review (var  Names   : 

Limmit  : 


Cri tArray; 
Integer) ; 


(*##*#**********#***#***#*************###**#*#*##******#**** 


REVIEW  * 

CTOUCH.PAS  * 

CHM,  TEMPALT  * 

PTI,  PT2,  PT3,  PT4,  PROBLEMFLAG,  * 
SCROLL  IT  TRACK!,  CH,  INPUTSTRING,  * 
FLAGCHOICE  * 

NONE  * 

NONE  * 

REV I EW 1 ,  GETTHEKEYS ,  CHANGERECDRD , * 
FINALCHOICE,  NEWWRITE  * 

* 

ALLOWS  THE  USER  TO  REVIEW  PAST  * 

ALTERNATIVES/CRITERIA,  AND  CHANGE  * 

THEM,  DEPENDING  AT  WHAT  STAGE  OF  * 

THE  DEVELOPMENT  THEY  ARE  AT.  * 


* 

* 
* 
* 

* 
* 

* 
* 

* 

* 
* 


PROCEDURE 
SUPPORTS  PROGRAM 
LOCAL  VARIABLES 
GLOBAL  VARIABLES 


ARRAYS  USED 
FILES  ACCESSED 
EXTERNAL  CALLS 

EXTERNAL  FILTERS 
CALLED  FROM 
PURPOSE 


var 


CHM  :  CHAR; 

TEMPALT   :  3TR INGE  121! ; 

begin    C  Re v  i  e w  J 

cirscr; 

pti  :=  2;   pt2  :=  2;   pt3  : =  77;   pt4  := 

window  (pti  ,pt2,pt-3,pt4)  ;   cirscr; 

scrollit  :=  true;    track!  :=  1; 
review! (names, 1 immi t) ; 

case  probiernflaq  of 

'a'..'d','i','l','o'   : 

begin    (Inside  of  Case  Statement} 

repeat 

if  alternative  =  'A"  then 

tempalt  :=   Alternatives' 
el  se 


!2S 


tempait  ;=   Criteria'; 

gotoxy ( 12, 1 ) ;    ch  :  =  'N';   clreol; 
write ('Da  you  Wish  to  Change  a  portion  ot 

the   , tempai t , ' ? ' ; ; 
gotoxy ( 12,3) ;    clreol; 
write ('Press  Home  Key  to  activate 

Scrolling.   Press  Enter'); 
gotoxy ( 12,4) ;    clreol; 
write( 'Key  before  answering  the  question 

after  Scrolling. '); 
gotoxy (66, 1 ) ; 

getthekeys ( Input string , 1 ) ; 
ch  :=  inputstring; 

if  ch  =  'Y'  then    £  Y  } 

begin    {Embedded  If  Statement) 
gotoxy ( 12, 1 ) ;    clreol; 
gotoxy ( 12,35 ;    clreol; 
gotoxy < 12,4) ;    clreol; 
ch  :=  'N'; 
ChangeRecord (Names,  Limmit) ; 

trackl  :=  1; 

review 1 (names, 1 immit) ; 

Trackl  ;=  1; 

end;      {Embedded  If  Statement} 

unti 1  ch  =  'N ' ; 

scrollit  :=  -^alse; 

end;      C  Inside  Case  Statement! 

end;    CCase  Statement) 

:ase  problemflag  of 

'a'..'d,'i','l','o'   : 

begin    C  Inside  of  Case  Statement)- 

c I r  scr ;    got ox y  < 23 , 3 )  ; 

write('Are  vols  finished  reviewing  this 

1 evel ' ) ; 
gotoxy (20,9) ; 
write('or  will  there  be  more  changes? 

Enter  ' ) ; 
gotoxy (20, 10) ; 
write ( '  '  *F '  '  for  Fini  shed  or 

' 'M ' '  for  More:    ' ) ; 
gotoxy (58 , 10) ; 


repeat 

getthekeys ( Inputstring , 1) ; 
fiagchoice  :=  inputstrinq; 

chm  i —    tiaqchoica; 
qotGxv <53, 10) ; 
until  CHM  in  CF'/il']; 

if  (FlagChoice  =  'F')  then 

FinalChcics; 

end;     (Inside  o-f  Case  Statement} 

'h',*j','k',*m*,*n',*p'   : 

begin 

gotoxy (2,2) ; 

write ('Press  Return  to 

conti  nue:    ' ) ; 
getthekeys ( Inputstring  ,  1  >  ; 
end; 

end;     -Cease  statement} 

NewWrite (Names, Li mmi t) ; 

end;     {Review} 
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